Create cachematrix.R

added cache matrix