data/NutritionStudy.R

In rpruim/Lock5Data: Datasets for "Statistics: UnLocking the Power of Data"

load("NutritionStudy.rda")
v <- c("Regular", "Occasional", "No")
NutritionStudy <- transform(NutritionStudy, 
    VitaminUse = factor( v[Vitamin], levels=v))
rm(v)
s <- c("Never", "Former", "Current")
NutritionStudy <- transform(NutritionStudy, 
    EverSmoke = factor( s[PriorSmoke], levels=s))
rm(s)
NutritionStudy <- transform(NutritionStudy, Sex=Gender)
# NutritionStudy <- subset(NutritionStudy, select = -Gender)