Programming Assignement 2

[escorial82]

These are the 2 functions

Make Cache Matrix:

makeCacheMatrix <- function(x = matrix()){
    inv <- NULL
    set <- function(y){
        x<<- y
        inv<<- NULL
    }
    get <- function() x
    setInv <- function(solve) inv<<- solve
    getInv <- function() inv
    list(set = set, get = get,
         setInv = setInv,
         getInv = getInv)

Solve the matrix, and check the result (the product of the Source Matrix and its inverse must be 1).

cacheSolve <- function(x, ...){
    inv <- x$getInv()
    if(!is.null(inv)){
        message('getting cached data')
        return(inv)
    }
    sourcematrix <- x$get()
    inv <- solve(sourcematrix,...)
    x$setInv(inv)
    inv
    sourcematrix %*% inv
}

[terrebonne]

May I know more about your comment?
Regards and thank you
Paul

2016-08-14 18:54 GMT-04:00 escorial82 notifications@github.com:

These are the 2 functions

Make Cache Matrix:

makeCacheMatrix <- function(x = matrix()){
im <- NULL
set <- function(y) {
x <<- y
inv <<- NULL
}
get <- function() x
setinverse <- function(solve) im <<- solve
getinverse <- function() I'm
list(set = set, get=get,setinverse = setinverse,getinverse = get inverse
}

Solve the matrix, and check the result (the product of the Source Matrix
and its inverse must be 1).
It doesn't work, the code line "im <- solve(sourcematrix)" gives me the
error "Error in as.vector(x, mode)"

cacheSolve <- function(x, ...){
im <- x$getinverse
if(!is.null(im)) {
message("getting cached data")
return(I'm
}
sourcematrix <- x$get
im <- solve(sourcematrix)
x$setinverse(im)
im
sourcematrix %*% im
}

—
You are receiving this because you are subscribed to this thread.
Reply to this email directly, view it on GitHub
#2253, or mute
the thread
https://github.com/notifications/unsubscribe-auth/AT8eZp_YhivgD3KYekjErjdX-F2xxVy9ks5qf5yJgaJpZM4JkAck
.

P.-André Dupuis