if (FALSE) {
# Note: In the following example, M1, M2, and M3 are true mediators.
head(QuantileData$PhenoData)
hima_quantile.fit <- hima_quantile(
X = QuantileData$PhenoData$Treatment,
M = QuantileData$Mediator,
Y = QuantileData$PhenoData$Outcome,
COV = QuantileData$PhenoData[, c("Sex", "Age")],
tau = c(0.3, 0.5, 0.7),
scale = FALSE, # Disabled only for simulation data
Bonfcut = 0.05,
verbose = TRUE
)
hima_quantile.fit
}
Run the code above in your browser using DataLab