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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.