TAI



Code Sharing: scienceCareers()
by David Condon

library(effort)

success <- list()

for (i in 1:nrow(scienceCareers)) {

Step1 <- recognize(you[i,"privilege"])
Step2 <- risks(Step1, take = TRUE)
Step3 <- ifelse(outcome(Step2) == "mistake", own(you[i,"conseq"]), stay(you[i,"humble"]))
Step4 <- learn(Step3)
success[[i]] <- ifelse(Step4 OR help(learn(you[i,"others"])) == TRUE, 1, 0)


}

## Note that I cribbed this code from a deprecated function that also invoked the 'denial()' and 'churn()' commands from library(gaming)


This page last modified on September 22nd, 2016.