R/getpropY.R

Defines functions getpropY

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