R/getpropX.R

Defines functions getpropX

getpropX <- function(obj, choices){
  eigs <- eigenvals(obj)
  pop <- round(eigs/sum(eigs)*100, 2)
  labx <- paste0("(", pop[choices[1]], "%)")
  return(labx)
}
camel315/otuSummary documentation built on May 5, 2019, 12:29 p.m.