n <- 100
surv_data <- data.frame(Time = runif(n = n, min = 0, max = 100),
event = rbinom(n = n, size = 1, prob = 0.5))
surv <- survival::Surv(time = surv_data$Time, event = surv_data$event)
factor_matrix <- data.frame(P1 = rnorm(n = n),
P2 = rnorm(n = n))
sGBJ::sGBJ_scores(surv,factor_matrix, nperm = 2)
# with covariates
covariates <- data.frame(age = runif(n = n, 60, 90))
sGBJ_scores(surv,factor_matrix, nperm = 2, covariates = covariates)
Run the code above in your browser using DataLab