if (FALSE) {
##load the dataset EPIA
data(EPIA)
bootCRM(data=EPIA,
max.item=c(112,112,112,112,112),
min.item=c(0,0,0,0,0),
max.EMCycle=200,
converge=.01,
nsample=100)
##load the dataset SelfEff
data(SelfEff)
bootCRM(data=SelfEff,
max.item=c(11,11,11,11,11,11,11,11,11,11),
min.item=c(0,0,0,0,0,0,0,0,0,0),
max.EMCycle=200,
converge=.01,
nsample=100)
}
Run the code above in your browser using DataLab