## 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)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.