R/cutoff_low.R

Defines functions cutoff_low

cutoff_low <-
function(low_map, para = 1, text = "low"){
    if(dim(low_map)[1] == 1){if(low_map == 0){
        print(paste(paste("There were not enough", text, sep = " "),
        "classified samples", sep=" "))}}
    else{s <- apply(low_map, 1, sum)
        low_map <- low_map[s > para,]}
    return(low_map);
}
chronchi/simpleTTMap documentation built on May 12, 2020, 12:38 p.m.