R/addPercent.R

Defines functions addPercent

addPercent <- function(x){
  namesX <- names(x)
  sumX <- sum(x)
  out <- paste(x, " (",round(x/sumX,3)*100, "%)" ,sep="")
  names(out) <- namesX
  out
}
fischuu/Luke documentation built on Aug. 30, 2022, 10:07 a.m.