Examples: LASSOLKT

source("lkt-vignette-setup.R")
## Executable examples are disabled for routine package builds. Set LKT_RUN_EXPENSIVE_VIGNETTES=true to run this vignette.
knitr::opts_chunk$set(eval = run_expensive_vignette)

The full LASSO path is intentionally not evaluated during routine CRAN checks. Set LKT_RUN_EXPENSIVE_VIGNETTES=true to execute it when rendering.

Load data

val <- prepare_largeraw_sample()

LASSOLKT

LASSO_Model <- LASSOLKTModel(
  data = data.table::setDT(val),
  gridpars = (1:9) / 10,
  removecomp = c(
    "Anon.Student.Id", "Anon.Student.Id", "Anon.Student.Id",
    "KC..Default.", "KC..Default.", "KC..Default.", "KC..Default.",
    "KC..Default.", "KC..Default.", "KC..Default.", "KC..Default.",
    "KC..Default.", "KC..Default.", "KC..Default.", "KC..Default.",
    "KC..Default."
  ),
  removefeat = c(
    "intercept", "logsuc$", "logfail$",
    "lineafm", "logafm", "logsuc", "logfail", "logsuc", "logfail",
    "linesuc", "linefail", "logitdec", "propdec", "recency",
    "logsuc$", "logfail$"
  ),
  allcomponents = c("Anon.Student.Id", "KC..Cluster.", "KC..Default."),
  allfeatures = c(
    "intercept", "lineafm", "logafm", "logsuc", "logfail",
    "logsuc", "logfail", "linesuc", "linefail", "logitdec",
    "propdec", "recency", "logsuc$", "logfail$"
  ),
  target_n = 100,
  test_fold = 1
)
check_true("LASSOLKT returned a list", is.list(LASSO_Model))
check_true("LASSOLKT has glmnet fit", inherits(LASSO_Model$fit, "glmnet"))
check_true("LASSOLKT target AUC finite", is.finite(as.numeric(LASSO_Model$target_auc)))
check_true("LASSOLKT target coefficients present", nrow(LASSO_Model$target_coefs) > 0)