## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----smoke-data, include=FALSE------------------------------------------------
set.seed(2026)
n_smoke <- 140
p_smoke <- 6
X_smoke <- matrix(rnorm(n_smoke * p_smoke), n_smoke, p_smoke)
colnames(X_smoke) <- paste0("x", seq_len(p_smoke))
beta_smoke <- c(1.0, -0.8, 0.6, 0, 0, 0)
T_smoke <- rexp(n_smoke, rate = 0.05 * exp(drop(X_smoke %*% beta_smoke)))
C_smoke <- rexp(n_smoke, rate = 0.025)
time_smoke <- pmin(T_smoke, C_smoke)
status_smoke <- as.integer(T_smoke <= C_smoke)
library(selSurv)
fit_smoke <- coxlasso_fit(X_smoke, time_smoke, status_smoke, lambda_choice = "1se")

## ----split, eval=FALSE--------------------------------------------------------
# split <- coxlasso_split(
#   X, time, status,
#   seed = 2026
# )
# summary(split)

## ----split-smoke, include=FALSE-----------------------------------------------
split_smoke <- coxlasso_split(
  X_smoke, time_smoke, status_smoke,
  seed = 2026
)
summary(split_smoke)