my cashematrix.R