R/cells_in_ctd.R

Defines functions cells_in_ctd

cells_in_ctd <- function(ctdIN, 
                         cells) {
    if (sum(!cells %in% colnames(ctdIN$specificity) == 0)) {
        return(1)
    } else {
        return(0)
    }
} 
NathanSkene/EWCE documentation built on April 30, 2024, 5:21 p.m.