R/rowSds.R

In genefilter: genefilter: methods for filtering genes from high-throughput experiments

Defines functions rowSds rowVars

Documented in rowSds rowVars

rowVars = function(x, ...) {
  sqr     = function(x)  x*x
  n       = rowSums(!is.na(x))
  n[n<=1] = NA
  return(rowSums(sqr(x-rowMeans(x, ...)), ...)/(n-1))
}

rowSds = function(x, ...)
  sqrt(rowVars(x, ...))

Try the genefilter package in your browser