cashematrix.R