# \donttest{
library(survival)
# Create dummy data
set.seed(123)
df <- data.frame(time = rexp(50), status = sample(0:1, 50, replace=TRUE),
var1 = rnorm(50), var2 = rnorm(50))
y <- Surv(df$time, df$status)
x <- df[, c("var1", "var2")]
model <- lasso_pro(x, y)
print(class(model))
# }
Run the code above in your browser using DataLab