R/driveP.R

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

}

Try the BlockFeST package in your browser

Any scripts or data that you put into this service are public.

BlockFeST documentation built on May 2, 2019, 3:25 a.m.