R/to_RA.R

In wsteenhu/microbiomer: Package Containing Utility-functions to Work with Microbiota-data

#' Convert phyloseq with raw read counts to relative abundance
#'
#' @param ps phyloseq-object
#'
#' @return Returns an phyloseq-object containing relative abundances instead of raw read counts (uses total sum scaling).
#' @export
#'
#' @examples
#' data(ps_NP)
#' to_RA(ps_NP)
to_RA <- function(ps) {
  phyloseq::transform_sample_counts(ps, function(OTU) OTU / sum(OTU))
}