solved problem

amaroRafael · amaroRafael · commit 8650c5c4655a · 2015-04-26T11:44:24.000-03:00
it didn’t saving matrix inverse in cache
diff --git a/cachematrix.R b/cachematrix.R
@@ -10,7 +10,7 @@ makeCacheMatrix <- function(x = matrix()) {
 		mi <<- NULL
 	}
 	get <- function() x
-	setinverse <- function(minverse) mi < minverse
+	setinverse <- function(minverse) mi <<- minverse
 	getinverse <- function() mi
 	list(set = set, get = get,
 		setinverse = setinverse,

Original file line number	Diff line number	Diff line change
`@@ -10,7 +10,7 @@ makeCacheMatrix <- function(x = matrix()) {`
`10`	`10`	`mi <<- NULL`
`11`	`11`	`}`
`12`	`12`	`get <- function() x`
`13`		`- setinverse <- function(minverse) mi < minverse`
	`13`	`+ setinverse <- function(minverse) mi <<- minverse`
`14`	`14`	`getinverse <- function() mi`
`15`	`15`	`list(set = set, get = get,`
`16`	`16`	`setinverse = setinverse,`