edit cashmatrix.R v1