Create riskModel.R