ProgrammingAssignment2 about programmingassignment2

[DIV015395]

Put comments here that give an overall description of what your

functions do

Write a short comment describing this function

makeCacheMatrix <- function(x = matrix()) {
inv <- NULL ## initialize inv as NULL; will hold value of inverse matrix
set <- function(y) { ## set to assign new function
x <<- y ## value of matrix in parent environment
inv <<- NULL ## if there is a new matrix, reset inv to NULL
}
get <- function() {x} ## define the get function - returns value of the matrix argument
setInverse <- function(inverse) {inv <<- inverse} ## assigns value of inv in parent environment
getInverse <- function() {inv} ## gets the value of inv where called
list(set = set, get = get, setInverse = setInverse, getInverse = getInverse)
}

Write a short comment describing this function

cacheSolve <- function(x, ...) {
## Return a matrix that is the inverse of 'x'
inv <- x$getInverse()
if(!is.null(inv)) { ## if inverse has not been already cached, it is cached and collected
message("cached data collected")
return(inv)
}
m <- x$get()
assignmentprogramming2.txt
}

[DIV015395]

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
cacheSolve <- function(x, ...){
inv <- x$getInv()
if(!is.null(inv)){
message('getting cached data')
return(inv)
}
matrix <- x$get()
inv <- mean(matrix,...)
x$setInv(inv)
inv
}

[DIV015395]

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
cacheSolve <- function(x, ...){
inv <- x$getInv()
if(!is.null(inv)){
message('getting cached data')
return(inv)
}
matrix <- x$get()
inv <- mean(matrix,...)
x$setInv(inv)
inv
}