ProgrammingAssignment2/cachematrix.R at master · wsko/ProgrammingAssignment2 · GitHub

42 lines (35 loc) · 951 Bytes

## These functions caching the inverse of a matrix

##rather than compute it repeatedly

#------

##This function creates a special "matrix" object

##that can cache its inverse

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)

}

## This function computes the inverse of the special

##"matrix" returned by makeCacheMatrix above.

##If the inverse has already been calculated

##and the matrix has not changed,

##then the cachesolve retrieves the inverse from the cache

cacheSolve <- function(x, ...) {

s <- x$getsolve()

if(!is.null(s)) {

message("getting cached data")

return(s)

}

data <- x$get()

s <- solve(data, ...)

x$setsolve(s)

## Return a matrix that is the inverse of 'x'

}

Expand file tree