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

}

Try the BlockFeST package in your browser

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

BlockFeST documentation built on March 15, 2021, 9:07 a.m.