Or cast to vector:
> set.seed(28)
> x<- sample(1:40,20,replace=TRUE)
> qx<-quantile(x,probs=0.10)
> qx
> #10%
> #3.8
> as.vector(qx)
> #3.8
*******************************************************************
This email and any attachments are confidential. Any use...{{dropped:8}}