1## quantiles with equal weights
2
3library(survey)
4data(api)
5dclus1<-svydesign(id=~dnum, weights=~pw, data=apiclus1, fpc=~fpc)
6
7
8for(i in 1:9){
9    print(i)
10    all.equal(
11        as.vector(coef(svyquantile(~ell, dclus1, c(0.2,0.5,0.9), qrule=paste0("hf",i)))),
12        as.vector(quantile(apiclus1$ell,  c(0.2,0.5,0.9), type=i))
13    )
14
15}
16