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

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49

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

## Write a short comment describing this function

# we recieve and insert here in cache the matrix  x= matrix
# the inverse we make in the other function
makeCacheMatrix <- function(x = matrix()) {

            inverseM <- NULL

            set <- function(y) {
                        x <<-  y
                        m <<-  NULL
            }
            get <- function() x


            setInverseM <- function(myInverseM) inverseM <<- myInverseM
            getInverseM <- function() inverseM

            list(set = set, get = get, setInverseM = setInverseM, getInverseM = getInverseM)

}


## Write a short comment describing this function

cacheSolve <- function(x, ...) {
        ## Return a matrix that is the inverse of 'x'
            inverseM <- x$getInverseM()

            if(!is.null(inverseM)) {

                        message("getting inverseM from cached")
                        return(inverseM)
            }
            data <- x$get()
            #here we make the inverse from a matrix
            inverseM <- solve(data)
            x$setInverseM(inverseM)
            return (inverseM)
            #inverseM
}

# x <- matrix(1:4,2,2)
# c <- makeCacheMatrix(x)
# cacheSolve(c)