Update cacheMatrix.R

Add functions