with.svyimputationList | R Documentation |
Performs a survey analysis on each of the designs in a
svyimputationList
objects and returns a list of results suitable
for MIcombine
. The analysis may be specified as an expression or
as a function.
## S3 method for class 'svyimputationList'
with(data, expr, fun, ...,multicore=getOption("survey.multicore"))
## S3 method for class 'svyimputationList'
subset(x, subset,...)
data , x |
A |
expr |
An expression giving a survey analysis |
fun |
A function taking a survey design object as its argument |
... |
for future expansion |
multicore |
Use |
subset |
An logical expression specifying the subset |
A list of the results from applying the analysis to each design object.
MIcombine
, in the mitools
package
library(mitools)
data.dir<-system.file("dta",package="mitools")
files.men<-list.files(data.dir,pattern="m.\\.dta$",full=TRUE)
men<-imputationList(lapply(files.men, foreign::read.dta,
warn.missing.labels=FALSE))
files.women<-list.files(data.dir,pattern="f.\\.dta$",full=TRUE)
women<-imputationList(lapply(files.women, foreign::read.dta,
warn.missing.labels=FALSE))
men<-update(men, sex=1)
women<-update(women,sex=0)
all<-rbind(men,women)
designs<-svydesign(id=~id, strata=~sex, data=all)
designs
results<-with(designs, svymean(~drkfre))
MIcombine(results)
summary(MIcombine(results))
repdesigns<-as.svrepdesign(designs, type="boot", replicates=50)
MIcombine(with(repdesigns, svymean(~drkfre)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.