Create cashematrix.R