# NOT RUN {
## use simpler column names
data("nhanes3", package="LogisticDx")
n1 <- c("ID", "pStrat", "pPSU", "sWt", "age", "sex",
"race", "bWt", "h", "sysBP", "diasBP", "sm100",
"smCurr", "smok", "chol", "htn")
names(nhanes3) <- n1
# }
Run the code above in your browser using DataLab