Buenas tengo el siguiente vector:
set.seed(1)
asu<-sample(c(1:100,NA), size = 500, replace = T)
Y deseo separar al vector por quintiles, es decir cuantos elementos se encuentran por cada quintil. Para lo cual realizo la siguiente función:
tablaza<-function(x){
a<-quantile(x, probs = c(0.2,0.4,0.6,0.8,1), na.rm = T)
a1<-sum(table(x[x<=a[1]]))
a2<-sum(table(x[x>a[1] & x<=a[2]]))
a3<-sum(table(x[x>a[2] & x<=a[3]]))
a4<-sum(table(x[x>a[3] & x<=a[4]]))
a5<-sum(table(x[x>a[4]]))
tablaza<-matrix(c(a1,a2,a3,a4,a5))
tablaza
}
Posteriormente le aplico un apply para obtener los elementos del vector asu por quintil.
apply(asu, 2, tablaza)
En la cual me indica el siguiente error:
Error in apply(asu, 2, tablaza) : dim(X) must have a positive length
Que sepa apply soporta vectores. No sé en que estoy fallando quizá en la definición de la función.
Muchas gracias de antemano
table(findInterval(asu,quantile(asu, probs = c(0.2,0.4,0.6,0.8,1), na.rm = T),left.open = TRUE))
apply
ya que simplifican mucho el código.