Update cachematrix.R

function makeCacheMatrix