Create cachematrix,R