Nothing
tests/na_weights.R
In survey: Analysis of Complex Survey Samples
library(survey)
data(api)
dsrs <- svydesign(id=~1, weights=~pw, data=apisrs)
# Add records with 0 weight
apisrs_0 <- apisrs
apisrs_0$pw <- NA
apisrs2 <- rbind(apisrs, apisrs_0)
dsrs2 <- svydesign(id=~1, weights=~pw, data=apisrs2, na_weight="allow")
stopifnot(coef(svytotal(~enroll, dsrs))==coef(svytotal(~enroll, dsrs2)))
stopifnot(SE(svytotal(~enroll, dsrs))==SE(svytotal(~enroll, dsrs2)))
Try the survey package in your browser
Any scripts or data that you put into this service are public.
survey documentation built on Feb. 25, 2026, 3 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(survey)
data(api)
dsrs <- svydesign(id=~1, weights=~pw, data=apisrs)
# Add records with 0 weight
apisrs_0 <- apisrs
apisrs_0$pw <- NA
apisrs2 <- rbind(apisrs, apisrs_0)
dsrs2 <- svydesign(id=~1, weights=~pw, data=apisrs2, na_weight="allow")
stopifnot(coef(svytotal(~enroll, dsrs))==coef(svytotal(~enroll, dsrs2)))
stopifnot(SE(svytotal(~enroll, dsrs))==SE(svytotal(~enroll, dsrs2)))
Try the survey package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.