Update riskModel.R