Create cachematrix1.R