cachematrix.R

# The here is to cache the matrix insted of compute it, so or our code can be more effecint since it will use less computing power.


# The first function, makeCacheMatrix creates a special "matrix",
# which is a list containing a function to:
# 1. set the value of the matrix
# 2. get the value of the matrix
# 3. set the value of the inverse
# 4. get the value of the inverse


makeCacheMatrix <- function(x = matrix()) {
	inv <- NULL
	set <- function(y) {
  #<<- will assign the object in different enviroment 
		x <<- y
		inv <<- NULL
	}
	get <- function() x
	setinv <- function(invers) inv <<- invers
	getinv <- function() inv
	list(set = set,
       get = get,
       setinv = setinv,
       getinv = getinv)
}
                
                
# The following function calculates the inverse of the special "matrix"
# created with the above function. 
# However, it first checks to see if the inverse has already been calculated. 
# If so, it gets the inverse from the cache and skips the computation. 
# Otherwise, it calculates the inverse of the data and
# sets the value of the inverse in the cache via the setinv function.



cacheSolve <- function(x, ...) {
    ## Return a matrix that is the inverse of 'x'
	inv <- x$getinv()
	if(!is.null(inv)) {
		message("getting cached data")
		return(inv)
	}
	data <- x$get()
	inv <- solve(data)
	x$setinv(inv)
	inv
}