Create cacheSolve.R

This function calcaulates the inverse of the matrix returned by function makeCacheMatrix.