Update cachematrix.R

No more changes. 
Sample run
y <- makeCacheMatrix(c)
y$set(c)
cacheSolve(y)