# NOT RUN {
## Obtain the risk difference and risk ratio for cardiovascular disease or
## death between patients with and without diabetes, while controlling for
## age, sex, BMI, whether the individual is currently a smoker, and
## if they have a history of hypertension.
data(cvdd)
set.seed(4832)
diabetes.result <- gComp(cvdd,
formula = "cvd_dth ~ DIABETES + AGE + SEX + BMI + CURSMOKE + PREVHYP",
outcome.type = "binary", R = 20)
summary(diabetes.result)
# }
Run the code above in your browser using DataLab