if (FALSE) {
# Note: In the following example, M1, M2, and M3 are true mediators.
data(SurvivalData)
pheno_data <- SurvivalData$PhenoData
mediator_data <- SurvivalData$Mediator
hima_survival.fit <- hima_survival(
X = pheno_data$Treatment,
OT = pheno_data$Time,
status = pheno_data$Status,
M = mediator_data,
COV = pheno_data[, c("Sex", "Age")],
scale = FALSE, # Disabled only for simulation data
FDRcut = 0.05,
verbose = TRUE
)
hima_survival.fit
}
Run the code above in your browser using DataLab