A thin wrapper that implements the main data-adaptive multiple hypothesis testing strategy for data structures commonly found in computational biology experiments, using the popular SummarizedExperiment container class.
bioadaptest(data_in, var_int, cntrl_set = NULL, n_top = 25, n_fold = 10, parameter_wrapper = rank_DE, learning_library = c("SL.mean", "SL.glm"), absolute = FALSE, negative = FALSE, p_cutoff = 0.05, q_cutoff = 0.05)
| data_in | An object of class |
|---|---|
| var_int | A |
| cntrl_set | A |
| n_top | (integer vector) - value for the number of candidate covariates to generate using the data-adaptive estimation algorithm. |
| n_fold | (integer vector) - number of cross-validation folds. |
| parameter_wrapper | (function) - user-defined function that takes input
(Y, A, W, absolute, negative) and outputs a (integer vector) containing
ranks of biomarkers (outcome variables). For detail, please refer to the
documentation for |
| learning_library | (character vector) - library of learning algorithms to be used in fitting the "Q" and "g" step of the standard TMLE procedure. |
| absolute | (logical) - whether or not to test for absolute effect size.
If |
| negative | (logical) - whether or not to test for negative effect size.
If |
| p_cutoff | The minimum p-value required to evaluate a given biological unit (e.g., gene) as statistically significant. |
| q_cutoff | The minimum p-value required to evaluate a given biological unit (e.g., gene) as statistically significant after applying a correction for multiple hypothesis testing. |
An object of class adaptmle, sub-classed from the popular
container class SummarizedExperiment, containing information about
the experiment being analyzed as well as results from applying the TMLE for
the data-adaptive target parameter as produced by adpatest.
library(SummarizedExperiment) library(airway) set.seed(5678) data(airway) genes_sub <- order(sample(seq_len(100))) air_reduced <- airway[genes_sub, ] simple_air <- cbind(air_reduced, air_reduced) dex_var = as.numeric(as.matrix(colData(simple_air))[, 3] - 1) airway_out <- bioadaptest(data_in = simple_air, var_int = dex_var, cntrl_set = NULL, n_top = 5, n_fold = 2, parameter_wrapper = rank_DE)