CacheMatrix.R Ok