cashSolve.R