Create cachematrix.R

test