edited cachematrix.R to input my code