data/SpeedDating.R

load('SpeedDating.rda')

SpeedDating <- transform(SpeedDating,
    DecisionMale = factor(ifelse(DecisionM == 0, "No", "Yes")))
SpeedDating <- transform(SpeedDating,
    DecisionFemale = factor(ifelse(DecisionF == 0, "No", "Yes")))
rpruim/Lock5Data documentation built on May 28, 2019, 1:30 a.m.