create.risk function

Internal function to pull Risk Ratio and Risk Difference from data when km.curves = TRUE