# Load Example Data
data("example_data")
# Get names of omics
colnames_omic_fts <- colnames(example_data)[grep("feature_",
colnames(example_data))][1:10]
# Get names of exposures
expnms = c("exposure1", "exposure2", "exposure3")
# Run function with one continuous exposure as the variable of interest
owas(df = example_data,
var = "exposure1",
omics = colnames_omic_fts,
covars = c("age", "sex"),
var_exposure_or_outcome = "exposure",
family = "gaussian")
# Run function with multiple continuous exposures as the variable of interest
owas(df = example_data,
var = expnms,
omics = colnames_omic_fts,
covars = c("age", "sex"),
var_exposure_or_outcome = "exposure",
family = "gaussian")
# Run function with dichotomous outcome as the variable of interest
owas(df = example_data,
var = "disease1",
omics = colnames_omic_fts,
covars = c("age", "sex"),
var_exposure_or_outcome = "outcome",
family = "binomial")
Run the code above in your browser using DataLab