Programming Assignment 2: Lexical Scoping by HJ

[kirin26]

makeCacheMatrix<- function(x =matrix()){

inv<-NULL
set<-function(y){
x<<-y
inv<<-NULL
}
get<-function() {x}
setinv<-function(inverse) {inv<<-inverse}
getinv<-function(){inv}
list(set=set, get=get, setinv=setinv, getinv=getinv)
}

cachesolve<- function(x,...){
inv<-x$getinv()
if(!is.null(inv)){
message("need cache data")
return(inv)
}
mat<-x$get()
inv<-solve(mat,...)
x$setinv(inv)
inv
}