Open ghost opened 2 years ago
makeCacheMatrix matrix <- function(x=matrix)) { c <- null set <- fucntion(y) x<-y c<- NULL } get <-function()x setinverse <- funtion(inverse) c <- inverse getinverse <- function() c
setinverse = setinverse, getinverse = getinverse)
Cachethematrix <- function(x, ...) { c < - getinverse() if(!is.null(c)) { message("getting cached data") return(c)
data <- xget()c c <- solve
--
good
makeCacheMatrix matrix <- function(x=matrix)) { c <- null set <- fucntion(y) x<-y c<- NULL } get <-function()x setinverse <- funtion(inverse) c <- inverse getinverse <- function() c
Cachethematrix <- function(x, ...) { c < - getinverse() if(!is.null(c)) { message("getting cached data") return(c)