Corregido error en ejemplo.

2022-02-24 15:48:33 +01:00
parent 8fe1c77f74
commit 3c77771ccb
1 changed files with 2 additions and 2 deletions
@@ -18,8 +18,8 @@ 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))
+df \%>\% mutate(Y=perc(Y))

 # Or it can be under 1
-df \%>\% group_by(X) \%>\% summarise(Y=perc(Y, per100=F))
+df \%>\% mutate(Y=perc(Y, per100=F))
 }