View source: R/save.BIFIE.data.R
save.BIFIEdata | R Documentation |
BIFIEdata
Objects
These functions save (save.BIFIEdata
), write (write.BIFIEdata
)
or load (load.BIFIEdata
) objects of class BIFIEdata
.
The function load.BIFIEdata.files
allows the creation
of BIFIEdata
objects by loading separate files of imputed datasets,
replicate weights and a possible indicator dataset.
save.BIFIEdata(BIFIEdata, name.BIFIEdata, cdata=TRUE, varnames=NULL) write.BIFIEdata( BIFIEdata, name.BIFIEdata, dir=getwd(), varnames=NULL, impdata.index=NULL, type="Rdata", ... ) load.BIFIEdata(filename, dir=getwd() ) load.BIFIEdata.files( files.imp, wgt, file.wgtrep, file.ind=NULL, type="Rdata",varnames=NULL, cdata=TRUE, dir=getwd(), ... )
BIFIEdata |
Object of class |
name.BIFIEdata |
Name of |
cdata |
An optional logical indicating whether the dataset should be saved in a 'compact way' |
varnames |
Vector of variable names which should be saved. The default is to use all variables. |
dir |
Directory in which data files should be saved. The default is the working directory. |
impdata.index |
Vector of indices for selecting imputed datasets |
type |
Type of saved data. Options are |
... |
Additional arguments to be passed to
|
filename |
File name of |
files.imp |
Vector of file names of imputed datasets |
wgt |
Variable name of case weight |
file.wgtrep |
File name for dataset with replicate weights |
file.ind |
Optional. File name for dataset with response data indicators |
Saved R object and a summary in working directory or a loaded R object.
For creating objects of class BIFIEdata
see BIFIE.data
.
base::save
, base::load
## Not run: ############################################################################# # EXAMPLE 1: Saving and loading BIFIE data objects ############################################################################# data(data.timss1) data(data.timssrep) bifieobj <- BIFIEsurvey::BIFIE.data( data.list=data.timss1, wgt=data.timss1[[1]]$TOTWGT, wgtrep=data.timssrep[, -1 ] ) summary(bifieobj) # save bifieobj in a compact way BIFIEsurvey::save.BIFIEdata( BIFIEdata=bifieobj, name.BIFIEdata="timss1_cdata" ) # save bifieobj in a non-compact way BIFIEsurvey::save.BIFIEdata( BIFIEdata=bifieobj, name.BIFIEdata="timss1_data", cdata=FALSE) # load this object with object name "bdat2" bdat2 <- BIFIEsurvey::load.BIFIEdata( filename="timss1_data.Rdata" ) summary(bdat2) # save bifieobj with selected variables BIFIEsurvey::save.BIFIEdata( bifieobj, name.BIFIEdata="timss1_selectvars_cdata", varnames=bifieobj$varnames[ c(1:7,13,12,9) ] ) # the same object, but use the non-compact way of saving BIFIEsurvey::save.BIFIEdata( bifieobj, name.BIFIEdata="timss1_selectvars_data", cdata=FALSE, varnames=bifieobj$varnames[ c(1:7,13,12,9) ] ) # load object timss1_cdata (in compact data format) bdat3 <- BIFIEsurvey::load.BIFIEdata( filename="timss1_cdata.Rdata" ) summary(bdat3) # save selected variables of object bdat3 BIFIEsurvey::save.BIFIEdata( bdat3, name.BIFIEdata="timss1_selectvars2_cdata", varnames=bifieobj$varnames[ c(1:4,12,8) ] ) ############################################################################# # EXAMPLE 2: Writing BIFIEdata objects ############################################################################# data(data.timss2) data(data.timssrep) # create compactBIFIEdata bifieobj <- BIFIEsurvey::BIFIE.data( data.list=data.timss2, wgt=data.timss2[[1]]$TOTWGT, wgtrep=data.timssrep[, -1 ], cdata=TRUE) summary(bifieobj) # save imputed datasets in format csv2 BIFIEsurvey::write.BIFIEdata( bifieobj, name.BIFIEdata="timss2_save1", type="csv2", row.names=FALSE) # save imputed datasets of BIFIEdata object in format table without column names # and code missings as "." BIFIEsurvey::write.BIFIEdata( bifieobj, name.BIFIEdata="timss2_save2", type="table", col.names=FALSE, row.names=FALSE, na="." ) # save imputed datasets of BIFIEdata object in format csv and select some variables # and only the first three datasets varnames <- c("IDSTUD","TOTWGT","female","books","lang","ASMMAT") BIFIEsurvey::write.BIFIEdata( bifieobj, name.BIFIEdata="timss2_save3", type="csv", impdata.index=1:3, varnames=varnames) # save imputed datasets of BIFIEdata object in format Rdata, the R binary format BIFIEsurvey::write.BIFIEdata( bifieobj, name.BIFIEdata="timss2_save4", type="Rdata" ) # save imputed datasets in sav (SPSS) format BIFIEsurvey::write.BIFIEdata( bifieobj, name.BIFIEdata="timss2_save5", type="sav" ) ############################################################################# # EXAMPLE 3: Loading BIFIEdata objects saved in separate files # (no indicator dataset) ############################################################################# # We assume that Example 2 is applied and we build on the saved files # from this example. #***--- read Rdata format # extract files with imputed datasets and replicate weights files.imp <- miceadds::grep.vec( c("timss2_save4__IMP", ".Rdata" ), list.files(getwd()) )$x file.wgtrep <- miceadds::grep.vec( c("timss2_save4__WGTREP", ".Rdata" ), list.files(getwd()) )$x # select some variables in varnames varnames <- scan( nlines=1, what="character") IDSTUD TOTWGT books lang migrant likesc ASMMAT # load files and create BIFIEdata object bifieobj1 <- BIFIEsurvey::load.BIFIEdata.files( files.imp, wgt="TOTWGT", file.wgtrep, type="Rdata", varnames=varnames ) summary(bifieobj1) #***--- read csv2 format files.imp <- miceadds::grep.vec( c("timss2_save1__IMP", ".csv" ), list.files(getwd()) )$x file.wgtrep <- miceadds::grep.vec( c("timss2_save1__WGTREP", ".csv" ), list.files(getwd()) )$x bifieobj2 <- BIFIEsurvey::load.BIFIEdata.files( files.imp, wgt="TOTWGT", file.wgtrep, type="csv2" ) summary(bifieobj2) #***--- read sav format files.imp <- miceadds::grep.vec( c("timss2_save5__IMP", ".sav" ), list.files(getwd()) )$x file.wgtrep <- miceadds::grep.vec( c("timss2_save5__WGTREP", ".sav" ), list.files(getwd()) )$x bifieobj3 <- BIFIEsurvey::load.BIFIEdata.files( files.imp, wgt="TOTWGT", file.wgtrep, type="sav", to.data.frame=TRUE, use.value.labels=FALSE) summary(bifieobj3) ############################################################################# # EXAMPLE 4: Loading BIFIEdata objects saved in separate files # (with an indicator dataset) ############################################################################# data(data.timss1) data(data.timss1.ind) data(data.timssrep) # create BIFIEdata object at first bifieobj <- BIFIEsurvey::BIFIE.data( data.list=data.timss1, wgt="TOTWGT", wgtrep=data.timssrep[, -1 ] ) summary(bifieobj) #--- save datasets for the purpose of the following example write.BIFIEdata( BIFIEdata=bifieobj, name.BIFIEdata="timss1_ex", type="Rdata" ) # save indicator dataset save( data.timss1.ind, file="timss1_ex__IND.Rdata" ) # grep file names files.imp <- miceadds::grep.vec( c("timss1_ex__IMP", ".Rdata" ), list.files(getwd()) )$x file.wgtrep <- miceadds::grep.vec( c("timss1_ex__WGTREP", ".Rdata" ), list.files(getwd()) )$x file.ind <- miceadds::grep.vec( c("timss1_ex__IND", ".Rdata" ), list.files(getwd()) )$x # define variables for selection varnames <- c("IDSTUD","TOTWGT","female","books","lang","ASMMAT") # read files using indicator dataset bifieobj2 <- BIFIEsurvey::load.BIFIEdata.files( files.imp, wgt="TOTWGT", file.wgtrep=file.wgtrep, file.ind=file.ind, type="Rdata", varnames=varnames) summary(bifieobj2) # read files without indicator dataset bifieobj3 <- BIFIEsurvey::load.BIFIEdata.files( files.imp, wgt="TOTWGT", file.wgtrep=file.wgtrep, type="Rdata", varnames=varnames) summary(bifieobj3) # compare some descriptive statistics res2 <- BIFIEsurvey::BIFIE.univar( bifieobj2, vars=c("books", "ASMMAT", "lang") ) res3 <- BIFIEsurvey::BIFIE.univar( bifieobj3, vars=c("books", "ASMMAT", "lang") ) summary(res2) summary(res3) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.