Update cachematrix.R

first try