Update cachematrix.R

i was using y initially in the cacheSolve function, but at the last moment I changed it to x as the sample cachemean function as x. 
But I forgot to change in the data <- x$getMatrix(). So I changed it now