if (FALSE) {
# Note: In the following examples, M1, M2, and M3 are true mediators.
data(himaDat)
# Y is continuous and normally distributed
# Example:
head(himaDat$Example1$PhenoData)
dblassohima.fit <- dblassoHIMA(
X = himaDat$Example1$PhenoData$Treatment,
Y = himaDat$Example1$PhenoData$Outcome,
M = himaDat$Example1$Mediator,
COV = himaDat$Example1$PhenoData[, c("Sex", "Age")],
scale = FALSE, # Disabled only for simulation data
FDRcut = 0.05,
verbose = TRUE
)
dblassohima.fit
}
Run the code above in your browser using DataLab