# NOT RUN {
################
### Examples ###
################
data("example_data")
predictor = data$exposure
region = data[,7:dim(data)[2]]
covariates = subset(data, select=c("age","gender"))
# binary outcome
pheno_bin = data$pheno_bin
mediation(pheno_bin, predictor, region, pos, covariate=covariates, order=4,
gbasis=4, base="bspline", family="binomial")
# continuous outcome
pheno_con = data$pheno_con
mediation(pheno_con, predictor, region, pos, covariate=covariates, order=4,
gbasis=4, base="bspline", family="gaussian")
# }
Run the code above in your browser using DataLab