if (FALSE) {
data(Example3)
head(Example3$PhenoData)
survHIMA.fit <- survHIMA(X = Example3$PhenoData$Treatment,
Z = Example3$PhenoData[, c("Sex", "Age")],
M = Example3$Mediator,
OT = Example3$PhenoData$Time,
status = Example3$PhenoData$Status,
FDRcut = 0.05,
scale = FALSE,
verbose = TRUE)
survHIMA.fit
}
Run the code above in your browser using DataLab