cachematrix.R

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

## Write a short comment describing this function

makeCacheMatrix <- function(x = matrix()) {
        m<-NULL
        set<-function(y){
                x<<-y
                m<<-NULL
        }
        get<-function()x
        setinver<-function(inverse) m <<- inverse
        getinver<-function()m
        list(set=set,get=get,setinver=setinver,getinver=getinver)

}


## Write a short comment describing this function

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