pre_test <- data.frame(pre_item1 = c(1, 0, 0, 1, 0), pre_item2 = c(1, NA, 0, 1, 0))
pst_test <- data.frame(
pst_item1 = pre_test[, 1] + c(0, 1, 1, 0, 0),
pst_item2 = pre_test[, 2] + c(0, 1, 0, 0, 1)
)
if (FALSE) {
lca_se(pre_test, pst_test, n_resamples = 10, seed = 31415)
}
Run the code above in your browser using DataLab