cachematrix.R

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

#this function takes a matrix as argument
#and builds cached matrix object with 
#get, set, setsolve and getsolve functions

makeCacheMatrix <- function(x = matrix()) {
s  <- NULL
  set <- function(y) {
    x <<- y
    s <<- NULL
  }
  
  get <- function() x
  setsolve <- function(solve) s <<- solve
  getsolve <- function() s
  list(set = set, get=get,
       setsolve = setsolve,
       getsolve = getsolve)

}


## Write a short comment describing this function

#gets a cache matrix object
#if inverse is cached, returned cached inverse
#else, compute the inverse, store it in the appropriateobject
#return the inverse

cacheSolve <- function(x, ...) {
  s <- x$getsolve()
  if (!is.null(s)) {
    message("getting cached inverse matrix")
    return (s)
  }
  data <- x$get()
  s <- solve(data,...)
  x$setsolve(s)
  s
  }