tests/raowuboot.R

## regression test for bug reported by Richard Valliant
library(survey)
s<-subbootweights(c(1,1),1:2, 50)
stopifnot(all(s$repweights$weights %in% c(0,2)))

Try the survey package in your browser

Any scripts or data that you put into this service are public.

survey documentation built on April 9, 2024, 3:01 a.m.