R/setBoundFlag.R

Defines functions setBoundFlag

setBoundFlag <- function(X, cutoff) {
    x <- X[,3]
    x[x <= cutoff] <- 0
    x[x > cutoff] <- 1
    return(x)
}

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.