R/getMean.R

In ravinpoudel/PhONA: PhONA provides a framework to select a testable and manageable number of OTUs/ASVs to support microbiome-based agriculture

#' Run Linear Models
#'
#' This function takes in phyloseq object, association matix, p value matrix
#' and create a combined OTU-OTU and OTU-Phenotype network. User can select model to
#' define OTU-Phontype assocaition.
#' @param x A phyloseq object which combined OTU count, taxonomy and metadata
#' @return A matrix of the infile
#' @export

getMean <- function(x){
  m = sum(x)/ length(x)
  m
}