R/cmsd.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

Defines functions cmsd

Documented in cmsd

#' Removes columns/proteins based on standard deviation
#'
#' @param data expression data
#'
#' @return
#' @export
#'
#'
cmsd <- function(data) {

  v <- apply(data, 2, function(x) {sd(x) != 0})

  data[, v]

}