cachematrix.R

## The makeCacheMatrix function creates a special "matrix". This function
## retorn a list that contains:

## 1. Set the value of the matrix  
## 2. Get the value of the matrix
## 3. Set the value of the inverse matrix
## 4. Get the value of the inverse matrix



makeCacheMatrix <- function(x = matrix()) {
inv <- NULL
set <- function(y){
x <<- y
inv <<- NULL
}
get <- function() x
setinv <- function(inverse) inv <<-inverse
getinv <- function() inv
list(set = set, get = get, setinv = setinv, getinv = getinv)
}


## cacheSolve function calculates the inverse "matrix" form makeCacheMatrix
## If the inverse has already been calculated the function returns the inverse
## and message ""getting cached data"". Otherwise, it calculates the inverse
## of the data and sets the matrix inverse in the cache via the setinv function
## This function uses the solve function for calculates the inverse


cacheSolve <- function(x, ...) {
        inv <- x$getinv()
        if(!is.null(inv)) {
                message("getting cached data")
                return(inv)
        }
        data <- x$get()
        inv <- solve(data, ...)
        x$setinv(inv)
        inv
}