if (FALSE) {
data(Example4)
head(Example4$PhenoData)
microHIMA.fit <- microHIMA(X = Example4$PhenoData$Treatment,
Y = Example4$PhenoData$Outcome,
OTU = Example4$Mediator,
COV = Example4$PhenoData[, c("Sex", "Age")],
scale = FALSE)
microHIMA.fit
}
Run the code above in your browser using DataLab