Update cachematrix.R

First function added