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,25 @@
+\name{perc}
+\alias{perc}
+\title{perc}
+\usage{
+perc(x, per100=T)
+}
+\arguments{
+  \item{x}{A numeric vector or an R object but not a factor coercible to numeric by as.double(x).}
+  \item{perc}{A logical value indicating whether the result must sum 100 (TRUE) or 1 (FALSE).}
+}
+\description{
+This function the percentages of a numeric vector.
+}
+\examples{
+v<-c(2,5,10,3)
+perc(v)
+
+# It can be used with dplyr tables
+library(tidyverse)
+df<-data.frame("X"=c("A","A","B","B"), "Y"=v)
+df \%>\% group_by(X) \%>\% summarise(Y=perc(Y))
+
+# Or it can be under 1
+df \%>\% group_by(X) \%>\% summarise(Y=perc(Y, per100=F))
+}