## Not run:
# add2 <- addGE(list(bmi10, dia10, sys10), combine = 2, plotit = T, ylim=c(0,8), legend=F)
# add3 <- addGE(list(bmi10, dia10, sys10), combine = 3, plotit = F)
# lines(add3$cM, add3$lod, col=4, lwd=2, lty=4)
# key(corner=c(0,1), lines=list(lwd=2, col=1:4, lty=1:4),
# text=list(c('BMI-Dia','BMI-Sys','Dia-Sys','BMI-Dia-Sys'), col=1:4))
# ## End(Not run)
Run the code above in your browser using DataLab