Añadida función perc.

2022-02-12 12:05:04 +01:00
parent 05da9ac572
commit 31811bec30
2 changed files with 32 additions and 0 deletions
@@ -0,0 +1,7 @@
+perc<-function(x, per100=T){
+  if (per100==T){
+    return(x*100/sum(x, na.rm = T))
+  }else{
+    return(x/sum(x, na.rm = T))
+  }
+}