cachematrix.R

## Put comments here that give an overall description of what your
## functions do

## Write a short comment describing this function
## makeCacheMatrix uses scoping rules and stores matrices in memory

makeCacheMatrix <- function(X = matrix()) {
  ## initialize the value of the matrix inverse to NULL
  inverse <- NULL
  ## delcare another function set where the value will be cached in. First Matrix is created
  ## for the first time then changes made to cached matrix
  set <- function(Y){
    X <<- Y
    inverse <<- NULL
  }
  ## gets the value of the inverse
  get <- function() X
  setinverse <- function(Inverse) inverse <<- Inverse
  getinverse <- function() inverse
  list(set=set,get=get,setinverse=setinverse,getinverse=getinverse)
}


## Write a short comment describing this function
## cacheSolve uses corpcor, a library that avoids determinants and uses orthogonal descomposition
## note: this function will try to load corpcor library and if it's not installed will try to install the library
## cacheSolve shows the inverse of a matrix if is in memory or computes the inverse and then shows the inverse
cacheSolve <- function(X, ...) {
  if(require("corpcor")){
    print("corpcor is loaded correctly")
  } else {
    print("trying to install corpcor")
    install.packages("corpcor")
    if(require(corpcor)){
      print("corpcor installed and loaded")
    } else {
      stop("could not install corpcor")
    }
  }
  inverse <- X$getinverse()  ##if the inverse exists, it gets it.
  if(!is.null(inverse)){
    message("matrix is in memory")
    return(inverse)
  }
  ##if the inverse if not there, first it is calculated and then retrieved.
  message("inverse is not in memory so the inverse (if exist) is gonna be computed")
  data <- X$get()
  inverse <- pseudoinverse(data, ...)
  X$setinverse(inverse)
  inverse
}
## Return a matrix that is the inverse of 'x'