if (FALSE) {
# For illustration, only 5 resamples are run
# results are definitely not reliable
dat <- sim30GDINA$simdat
Q <- sim30GDINA$simQ
fit <- GDINA(dat = dat, Q = Q, model = "GDINA",att.dist = "higher.order")
boot.fit <- bootSE(fit,bootsample = 5,randomseed=123)
boot.fit$delta.se
boot.fit$lambda.se
}
Run the code above in your browser using DataLab