if (FALSE) {
# Note: In the following example, M1, M2, and M3 are true mediators.
data(MicrobiomeData)
pheno_data <- MicrobiomeData$PhenoData
mediator_data <- MicrobiomeData$Mediator
hima_microbiome.fit <- hima_microbiome(
X = pheno_data$Treatment,
Y = pheno_data$Outcome,
OTU = mediator_data,
COV = pheno_data[, c("Sex", "Age")],
FDRcut = 0.05,
verbose = TRUE
)
hima_microbiome.fit
}
Run the code above in your browser using DataLab