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 GeneFeST package in your browser

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

GeneFeST documentation built on May 29, 2017, 7:49 p.m.