Implement makeCacheMatrix and cacheSolve

Implements makeCacheMatrix function
Implements cacheSolve function
Test is with:
x <- matrix(c(3, -2, 2, 1, 2, -3, 4, 1, 2), nrow = 3, byrow=TRUE)