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)
}

Try the otuSummary package in your browser

Any scripts or data that you put into this service are public.

otuSummary documentation built on Sept. 8, 2023, 6:05 p.m.