Examples: RPFA propdec2 Original

source("lkt-vignette-setup.R")
## Executable examples are disabled for routine package builds. Set LKT_RUN_EXPENSIVE_VIGNETTES=true to run this vignette.

Load data

val <- prepare_largeraw_sample()

Recency tracing with RPFA propdec2

model_rpfa_propdec2 <- LKT(
  data = val,
  interc = TRUE,
  components = c(
    "Anon.Student.Id",
    "KC..Default.",
    "KC..Default.",
    "KC..Default.",
    "KC..Default."
  ),
  features = c("intercept", "intercept", "intercept", "propdec2", "recency"),
  fixedpars = c(NA, NA)
)
check_lkt_fit(
  model_rpfa_propdec2,
  expected_r2 = 0.351435,
  expected_loglike = -24634.74277483,
  r2_tolerance = 1e-3,
  loglike_tolerance = 2
)
check_true("two optimized RPFA parameters", length(model_rpfa_propdec2$optimizedpars$par) == 2)
check_has_coefficients(model_rpfa_propdec2, c("propdec2KC..Default.", "recencyKC..Default."))