Create cachematrix.R

Added cache matrix