Committing the completed R function

Solves for the inverse of a matrix using solve