R/SWEEP.R

Defines functions SWEEP

SWEEP <- function(data){
  if(is.null(dim(data))) out = data/data
  else out = sweep(data, 2, colSums(data),"/")*100
  return(out)
}
camel315/otuSummary documentation built on May 5, 2019, 12:29 p.m.