This is the edited cachematrix.R file.