Create cachematrix.R

First code cachematrix