R/driveP.R

Defines functions driveP

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

}
pievos101/BlockFeST documentation built on March 16, 2021, 2:18 a.m.