tests/testoutput/bycovmat.R

2 library(survey)
8 a<-svyby(~api00+api99, ~comp.imp+sch.wide,design=rclus1,svymean,
10 b<-svyby(~api00+api99, ~comp.imp+sch.wide,design=rclus1,svymean,
20 rat <- svyratio(~ell+mobility, ~mobility+meals, dclus1,covmat=TRUE)
31 rat <- svyratio(~ell+mobility, ~mobility+meals, rclus1,covmat=TRUE)
39 stopifnot(all(abs(survey:::svrVar(con$replicates, rclus1$scale,rclus1$rscales,mse=rclus1$mse, coef=…
45 a<-svyby(~api00+api99, ~comp.imp+sch.wide,design=rclus1,svymean,
47 b<-svyby(~api00+api99, ~comp.imp+sch.wide,design=rclus1,svymean,
57 rat <- svyratio(~ell+mobility, ~mobility+meals, dclus1,covmat=TRUE)
68 rat <- svyratio(~ell+mobility, ~mobility+meals, rclus1,covmat=TRUE)
76 stopifnot(all(abs(survey:::svrVar(con$replicates, rclus1$scale,rclus1$rscales,mse=rclus1$mse, coef=…