Update cachematrix.R

initial function