Update RelativeRiskCode.R