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