Adding the R program made for cacheSolve