Includes solve function

example:
A <- matrix(1:4, nrow=2, ncol = 2)

AA<- makeCacheMatrix(A)

S <- cacheSolve(AA)

S