Create cachematrix.R

First Response to function cachematrix