Programming Assignment 2
This is how I tested and the results:

> mtx <- rbind(c(1, -1/4), c(-1/4, 1))
> m <- makeCacheMatrix(mtx)
> m$getMatrix()
      [,1]  [,2]
[1,]  1.00 -0.25
[2,] -0.25  1.00
> m$getInverse()
NULL
> cacheSolve(m)
          [,1]      [,2]
[1,] 1.0666667 0.2666667
[2,] 0.2666667 1.0666667
> m$getInverse()
          [,1]      [,2]
[1,] 1.0666667 0.2666667
[2,] 0.2666667 1.0666667
>