edited cachematrix.R with functions that cache the inverse of a matrix