initial draft of assignment 2 R functions to cache matrix inverse