R/data_clean.R

data_clean <- function(rawfeature){

    ind <- which(rowSums(rawfeature>0)>=10)
    feature <- rawfeature[ind, ]
    feat.names <- rownames(feature)

    return(list(feature = feature,
                feat.names = feat.names)
            )
}
Stat-Li/SDAMS documentation built on May 26, 2019, 11:58 p.m.