R/setFlagIncreasedBinding.R

Defines functions setFlagIncreasedBinding

setFlagIncreasedBinding <- function(x, cutoff) {
    ws <- 0
    ws <- ifelse(x[,3] == 1 & x[,4] == 1 & (x[,1]-x[,2] >= cutoff),1,ws)
}

Try the SimBindProfiles package in your browser

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

SimBindProfiles documentation built on Nov. 8, 2020, 5:57 p.m.