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