if (FALSE) {
# Note: In the following example, M1, M2, and M3 are true mediators.
head(SurvivalData$PhenoData)
hima_survival.fit <- hima_survival(
X = SurvivalData$PhenoData$Treatment,
M = SurvivalData$Mediator,
OT = SurvivalData$PhenoData$Time,
status = SurvivalData$PhenoData$Status,
COV = SurvivalData$PhenoData[, 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