Creating Function to calculate inverse of matrix.

Author: rakhmad

cachematrix.R

@@ -8,6 +8,17 @@
 ## 3. set the inverse value of the matrix
 ## 4. get the inverse value of the matrix
 makeCacheMatrix <- function(x = matrix()) {
+	m <- NULL
+	set <- function(y) {
+		x <<- y
+		m <<- NULL
+	}
+	get <- function() x
+	setinverse <- function(solve) m <<- solve
+	getinverse <- function() m
+	list(set = set, get = get,
+		 setinverse = setinverse, 
+		 getinverse = getinverse)
 
 }