Returns P(gk | data) for each individual, representing the probability that the individual truly learned (vs. guessing or already knowing).
posterior_learned(object)numeric vector of P(learned | data) for each individual
sim <- simulate_lca(n = 100, gk = 0.30, seed = 123, return_classes = TRUE)
fit <- person_item_lca_fit(sim$pre, sim$post)
p_learned <- posterior_learned(fit)
cor(p_learned, sim$learned)
#> [1] 0.766887