inst/tinytest/test-cox_cure_net.R

In intsurv: Integrative Survival Modeling

library(intsurv)

## simulate a toy right-censored data with a cure fraction
set.seed(123)
n_obs <- 100
p <- 10
x_mat <- matrix(rnorm(n_obs * p), nrow = n_obs, ncol = p)
colnames(x_mat) <- paste0("x", seq_len(p))
surv_beta <- c(rep(0, p - 5), rep(1, 5))
cure_beta <- c(rep(1, 2), rep(0, p - 2))
dat <- simData4cure(nSubject = n_obs, lambda_censor = 0.01,
                    max_censor = 10, survMat = x_mat,
                    survCoef = surv_beta, cureCoef = cure_beta,
                    b0 = 0.5, p1 = 1, p2 = 1, p3 = 1)

## model-fitting from given design matrices
fit1 <- cox_cure_net.fit(
    x_mat,
    x_mat,
    dat$obs_time,
    dat$obs_event,
    surv_net = list(nlambda = 10, alpha = 0.8),
    cure_net = list(nlambda = 10, alpha = 0.8)
)

## model-fitting from given model formula
fm <- paste(paste0("x", seq_len(p)), collapse = " + ")
surv_fm <- as.formula(sprintf("~ %s", fm))
cure_fm <- surv_fm
fit2 <- cox_cure_net(
    surv_fm, cure_fm, data = dat,
    time = obs_time, event = obs_event,
    surv_net = list(nlambda = 12, alpha = 1),
    cure_net = list(nlambda = 5, alpha = 0.5)
)

## summary of BIC's
BIC(fit1)
BIC(fit2)

## list of coefficient estimates based on BIC
coef(fit1)
coef(fit2)

## check backward compatibility
expect_warning(
    old_fit <- cox_cure_net(
        surv_fm, cure_fm, data = dat,
        time = obs_time, event = obs_event,
        surv_nlambda = 5, cure_nlambda = 5,
        surv_alpha = 0.5, cure_alpha = 0.5
    ),
    pattern = "cox_cure_net()"
)
expect_equal(old_fit$penalty$surv_alpha, 0.5)
expect_equal(old_fit$penalty$cure_alpha, 0.5)