Working makeCacheMatrix & cacheSolve functions

Example:

> z <- matrix(c(1,2,2,1), 2)
> source("cachematrix.R")
> xyz <- makeCacheMatrix(z)
> cacheSolve(xyz)
           [,1]       [,2]
[1,] -0.3333333  0.6666667
[2,]  0.6666667 -0.3333333
> cacheSolve(xyz)
getting cached data
           [,1]       [,2]
[1,] -0.3333333  0.6666667
[2,]  0.6666667 -0.3333333
>