fix after learning to get inverse by calling solve

sabrams · sabrams · commit 244ef491e4c0 · 2016-02-21T22:38:00.000-05:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -33,7 +33,7 @@ cacheSolve <- function(x, ...) {
     return(m)
   }
   data <- x$get()
-  m <- matrix(rev(c(data)), nrow=nrow(data), ncol=ncol(data))
+  m <- solve(data)
   x$setinv(m)
   m
         ## Return a matrix that is the inverse of 'x'
diff --git a/test.R b/test.R
@@ -1,10 +1,11 @@
 source('./cachematrix.R')
-x <- matrix(1:20,  nrow=3, ncol=2)
-y <- matrix(100:106,  nrow=3, ncol=2)
-z <- matrix(c("a", "v", "b", "aa", "ab", "cc"),  nrow=3, ncol=3)
+x <- matrix(c(2,2,3,2),  nrow=2, ncol=2)
+y <- matrix(c(1, -1, 1, 2),  nrow=2, ncol=2)
 cmx <- makeCacheMatrix(x)
 cmy <- makeCacheMatrix(y)
-cmz <- makeCacheMatrix(z)
 invx <- cacheSolve(cmx)
 invy <- cacheSolve(cmy)
-invz <- cacheSolve(cmz)
+solve(cacheSolve(cmy))
+solve(cacheSolve(cmx))
+solve(cacheSolve(cmy))
+solve(cacheSolve(cmx))

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@ cacheSolve <- function(x, ...) {`
`33`	`33`	`return(m)`
`34`	`34`	`}`
`35`	`35`	`data <- x$get()`
`36`		`- m <- matrix(rev(c(data)), nrow=nrow(data), ncol=ncol(data))`
	`36`	`+ m <- solve(data)`
`37`	`37`	`x$setinv(m)`
`38`	`38`	`m`
`39`	`39`	`## Return a matrix that is the inverse of 'x'`