Update cashematrix.R