FilesExpand file tree

master

/

cachematrix.R

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

35 lines (30 loc) · 1.02 KB

master

/

cachematrix.R

Copy path

Top

File metadata and controls

• Code
• Blame

35 lines (30 loc) · 1.02 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

## There are two functions in this file: both are used to store and manipulate matrices

## This function is designed to store a matrix in the cache to be used for inversion in the cachemean function below

makeCacheMatrix <- function(x = matrix()) {

inv <- NULL

temp <- function(y) {

x <<- y

inv <<- NULL

}

pull <- function() x

invertMatrix <- function(inverse) inv <<- inverse

pullInverse <- function() inv

list(temp = temp,

pull = pull,

invertMatrix = invertMatrix,

pullInverse = pullInverse

)

}

## This function inverts the matrix created in the makeCacheMatrix function from above. If it's already been inverted, it just pulls it from the cache instead.

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

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

inv <- x$pullInverse()

if(!is.null(inv)) {

message("getting cached data")

return(inv)

}

mtrx <- x$pull()

inv <- solve(mtrx, ...)

x$invertMatrix(inv)

return(inv)

}