if (FALSE) {
# load the BIFIEsurvey package
library(BIFIEsurvey)
#############################################################################
# EXAMPLE 1: Design with Jackknife replicate weights in TIMSS
#############################################################################
data(data.timss11.G4.AUT, package="CDM")
dat <- CDM::data.timss11.G4.AUT$data
# generate design
rdes <- CDM::IRT.repDesign( data=dat, wgt="TOTWGT", jktype="JK_TIMSS",
jkzone="JKCZONE", jkrep="JKCREP" )
str(rdes)
#############################################################################
# EXAMPLE 2: Bootstrap resampling
#############################################################################
data(sim.qmatrix, package="CDM")
q.matrix <- CDM::sim.qmatrix
# simulate data according to the DINA model
dat <- CDM::sim.din(N=2000, q.matrix=q.matrix )$dat
# bootstrap with 300 random samples
rdes <- CDM::IRT.repDesign( data=dat, jktype="BOOT", Nboot=300 )
}
Run the code above in your browser using DataLab