A simple credit simulator in R