Examples: nosolve Model Matrix

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()

Return the model matrix

model_nosolve <- LKT(
  data = val,
  interc = FALSE,
  components = c("Anon.Student.Id", "KC..Default.", "KC..Default."),
  features = c("intercept", "intercept", "lineafm"),
  nosolve = TRUE
)
check_true("nosolve returns lassodata list", is.list(model_nosolve) && "lassodata" %in% names(model_nosolve))
check_true("nosolve returns sparse matrix", inherits(model_nosolve$lassodata[[2]], "matrix.csr"))
check_true("nosolve row count", model_nosolve$lassodata[[2]]@dimension[1] == nrow(val))