CitFuns/R/perc.R

perc<-function(x, per100=T){
  if (per100==T){
    return(x*100/sum(x, na.rm = T))
  }else{
    return(x/sum(x, na.rm = T))
  }
}