Update cachematrix.R

first update