cachematrix.R

## create a special object that stores a matrix and cache's its inversion


## creates the object with the functions to set, get the inversion
makeCacheMatrix <- function(x = matrix()) {

  m <- NULL
  set <- function(y) {
    x <<- y
    m <<- NULL
  }
  get <- function() x
  setinverse <- function(inverse) m <<- inverse
  getinverse <- function() m
  list(set = set, get = get,
       setinverse = setinverse,
       getinverse = getinverse)  
}


## function that returns the inversion either a new one or if chached a cached one

cacheSolve <- function(x, ...) {
  m <- x.getinverse()
  if(!is.null(m)) {
    message("getting cached data")
    return(m)
  }
  data <- x.get()
  m <- solve(data)
  x.setinverse(m)
  m
}