cachematrix.R

# Put comments here that give an overall description of what your functions do
# Write a short comment describing this function

# Create a matrix object that can be cached
makeCacheMatrix <- function(x = matrix()) {
        z <- NULL
        # Set and Get functions for matrix
        set_matrix <- function(matrix) { 
                m <<- matrix
                z <<- NULL
        }
        get_matrix <- function(matrix) {m}

        # Set and Get functions for inverse
        set_inv <- function(inverse) {inv <<- inverse}
        get_inv <- function(inverse) {inv}
        list(set_inv, get_inv, set_matrix, get_matrix)
}

# Compute inverse if not cached, else return cached value
cacheSolve <- function(x, ...) {
        # Get Matrix if Cached
        out <- x$get_inv()
        if(!is.null(out)) {return(m)}
        
        # Solve for Inverse Matrix using Matrix Multiplication
        inp <- x $ get_matrix()
        out <- solve(inp) %*% inp
        x$set_inv(out)
        out
}