R/eif_moderated.R
changed.
Other files ignored by Codecov
R/plots.R
has changed.
17 | 17 | #' @param ... Other arguments passed to \code{\link[limma]{topTable}}. |
|
18 | 18 | #' |
|
19 | 19 | #' @importFrom methods is |
|
20 | - | #' @importFrom dplyr "%>%" |
|
20 | + | #' @importFrom dplyr "%>%" mutate select |
|
21 | 21 | #' @importFrom stats plogis p.adjust |
|
22 | 22 | #' @importFrom limma lmFit eBayes topTable |
|
23 | 23 | #' @importFrom tibble as_tibble rownames_to_column |
78 | 78 | sort.by = "none", |
|
79 | 79 | ... |
|
80 | 80 | ) %>% |
|
81 | - | tibble::rownames_to_column(var = "ID") %>% |
|
82 | - | tibble::as_tibble() %>% |
|
83 | - | mutate( |
|
81 | + | tibble::as_tibble(.name_repair = "minimal") %>% |
|
82 | + | dplyr::mutate( |
|
84 | 83 | # remove log-fold change and overwrite average expression with ATE |
|
84 | + | ID = biotmle@NAMES, |
|
85 | 85 | logFC = NULL, |
|
86 | 86 | AveExpr = biotmle@ateOut, |
|
87 | 87 | var_bayes = fit$s2.post / n_obs, |
|
88 | - | ) |
|
88 | + | ) %>% |
|
89 | + | dplyr::select(ID, AveExpr, t, P.Value, adj.P.Val, B, var_bayes) |
|
89 | 90 | ||
90 | 91 | # use logistic distribution as reference for p-values by default |
|
91 | 92 | if (pval_type == "logistic") { |
Files | Coverage |
---|---|
R | 78.57% |
Project Totals (4 files) | 78.57% |
1 |
comment: false |