create casheSolve.R