Solution rdpeng#1

Author: leiton68

.RData

@@ -1 +1,70 @@
-
+## This function creates a matrix object that can cache its inverse
+makeCacheMatrix <- function(x = matrix()){
+inv <- NULL
+set <- function(y) {
+x <<- y
+inv <<- NULL
+}
+get <- function() x
+setInverse <- function(inverse) inv <<- inverse
+getInverse <- function() inv
+list(set = set, get = get,
+setInverse = setInverse,
+getInverse = getInverse)
+}
+## This function computes the inverse of the matrix created by the function
+##above
+cacheSolve <- function(x, ...){
+## Return a matrix that is the inverse of x
+inv <- x$getInverse()
+if (!is.null(inv)){
+message("getting cached data")
+return(inv)
+}
+mat <- x$get()
+inv <- solve(mat, ...)
+x$setInverse(inv)
+inv
+}
+gwd()
+getwd()
+setwd("C:/Users/LEITON/ProgrammingAssignment2/ProgrammingAssignment2")
+## This function creates a matrix object that can cache its inverse
+makeCacheMatrix <- function(x = matrix()){
+inv <- NULL
+set <- function(y) {
+x <<- y
+inv <<- NULL
+}
+get <- function() x
+setInverse <- function(inverse) inv <<- inverse
+getInverse <- function() inv
+list(set = set, get = get,
+setInverse = setInverse,
+getInverse = getInverse)
+}
+## This function computes the inverse of the matrix created by the function
+##above
+cacheSolve <- function(x, ...){
+## Return a matrix that is the inverse of x
+inv <- x$getInverse()
+if (!is.null(inv)){
+message("getting cached data")
+return(inv)
+}
+mat <- x$get()
+inv <- solve(mat, ...)
+x$setInverse(inv)
+inv
+}
+ex_matrix <- makeCacheMatrix(matrix(2:6),2,2)
+ex_matrix <- makeCacheMatrix(matrix(2:6),2,2))
+ex_matrix <- makeCacheMatrix(matrix(2:6,2,2))
+ex_matrix
+ex_matrix$get()
+ex_matrix <- makeCacheMatrix(matrix(3:6,2,2))
+ex_matrix$get()
+ex_matrix$getInverse()
+cacheSolve(ex_matrix)
+cacheSolve(ex_matrix)
+ex_matrix$getInverse()