Update cachematrix.R

Sample run is like this
c=rbind(c(1, -1/4), c(-1/4, 1))     ## Creating a 2x2 matrix and assign it to c
y <- makeCacheMatrix(c)             ## call makeCacheMatrix on the matrix and assign it to y
y$set(c)                  ## put this result in cache
cacheSolve(y)             ## Call the cacheSolve function to get the cached data and print its inverse