load('SpeedDating.rda')
SpeedDating <- transform(SpeedDating,
DecisionMale = factor(ifelse(DecisionM == 0, "No", "Yes")))
SpeedDating <- transform(SpeedDating,
DecisionFemale = factor(ifelse(DecisionF == 0, "No", "Yes")))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.