Added cache matrix R script