Siguiendo el ejemplo que se usa en la documentación del paquete.
library(survey)
data(api)
dclus1<-svydesign(id=~dnum, weights=~pw, data=apiclus1, fpc=~fpc)
svyby(~api99, ~stype, dclus1, svymean)
Que resulta.
stype api99 se
E E 607.7917 22.81660
H H 595.7143 41.76400
M M 608.6000 32.56064
Asimismo, pero si quiero crear una función que me permita hacer lo mismo, pero para cada una de las variables numéricas. Por ejemplo, creo la siguiente función
f1<-function(x){
x<-enquo(x)
svyby(~!!x, ~stype, dclus1, svymean)
}
Lo hago como si se usara dplyr. Y lo evaluo para la variable api99
.
f1(sym("api99"))
Pero, me resulta:
! Quosures can only be unquoted within a quasiquotation context.
# Bad: list(!!myquosure)
# Good: dplyr::mutate(data, !!myquosure)
Sé que está mal porque he creado la función como si fuese a usar dplyr.
¿Cómo podría crear la función? La cual me permita solo colocar el nombre de la columna y se obtenga los resultados esperados.