cachematrix.R

## Below are two functions that are used to create a special object that stores a matrix and cache's its inverse
## 

## Write a short comment describing this function
##The first function, makeCacheMatrix creates a special "matrix", which is really a list containing a function to

   ## set the value of the matrix
   ## get the value of the matrix
   ## set the value of the inverse of matrix
   ## get the value of the imverse of matrix

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
##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 setsolve function.


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