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))Run the code above in your browser using DataLab