Added the functions to cachematrix.R