data-raw/SleepStudy.R

load('SleepStudy.rda')

SleepStudy <- transform(SleepStudy,
    Sex = factor(ifelse(Gender==0, "Female", "Male")) )

SleepStudy <- transform(SleepStudy,
    allNighter = factor(ifelse(AllNighter==0, "No", "Yes")) )

SleepStudy <- transform(SleepStudy,
    earlyClass = factor(ifelse(EarlyClass == 0, "No", "Yes")) )
rpruim/Lock5withR documentation built on May 28, 2019, 1:31 a.m.