driveP <- function(){
if(BBB2$acc.ratio > BBB2$prior.odds){
BBB2$tempting <- BBB2$tempting + BBB2$h.step.width
}
if(BBB2$acc.ratio < BBB2$prior.odds){
BBB2$tempting <- BBB2$tempting - BBB2$h.step.width
}
BBB2$acc.ratio <- 0
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.