|
a |
|
b/man/volcano_ic.Rd |
|
|
1 |
% Generated by roxygen2: do not edit by hand |
|
|
2 |
% Please edit documentation in R/plots.R |
|
|
3 |
\name{volcano_ic} |
|
|
4 |
\alias{volcano_ic} |
|
|
5 |
\title{Volcano plot for class biotmle} |
|
|
6 |
\usage{ |
|
|
7 |
volcano_ic(biotmle, ate_bound = 1, pval_bound = 0.2) |
|
|
8 |
} |
|
|
9 |
\arguments{ |
|
|
10 |
\item{biotmle}{object of class \code{biotmle} as produced by an appropriate |
|
|
11 |
call to \code{biomarkertmle}} |
|
|
12 |
|
|
|
13 |
\item{ate_bound}{A \code{numeric} indicating the highest magnitude of the |
|
|
14 |
average treatment effect to be colored on the x-axis of the volcano plot; |
|
|
15 |
this limits the observations to be considered differentially expressed to |
|
|
16 |
those in a user-specified interval.} |
|
|
17 |
|
|
|
18 |
\item{pval_bound}{A \code{numeric} indicating the largest corrected p-value |
|
|
19 |
to be colored on the y-axis of the volcano plot; this limits observations |
|
|
20 |
considered as differentially expressed to those in a user-specified |
|
|
21 |
interval.} |
|
|
22 |
} |
|
|
23 |
\value{ |
|
|
24 |
object of class \code{ggplot} containing a standard volcano plot of |
|
|
25 |
the log-fold change in the causal target parameter against the raw log |
|
|
26 |
p-value computed from the moderated tests in \code{modtest_ic}. |
|
|
27 |
} |
|
|
28 |
\description{ |
|
|
29 |
Volcano plot of the log-changes in the target causal paramter against the |
|
|
30 |
log raw p-values from the moderated t-test. |
|
|
31 |
} |
|
|
32 |
\examples{ |
|
|
33 |
\dontrun{ |
|
|
34 |
library(dplyr) |
|
|
35 |
library(biotmleData) |
|
|
36 |
library(SuperLearner) |
|
|
37 |
library(SummarizedExperiment) |
|
|
38 |
data(illuminaData) |
|
|
39 |
|
|
|
40 |
colData(illuminaData) <- colData(illuminaData) \%>\% |
|
|
41 |
data.frame() \%>\% |
|
|
42 |
mutate(age = as.numeric(age > median(age))) \%>\% |
|
|
43 |
DataFrame() |
|
|
44 |
benz_idx <- which(names(colData(illuminaData)) \%in\% "benzene") |
|
|
45 |
|
|
|
46 |
biomarkerTMLEout <- biomarkertmle( |
|
|
47 |
se = illuminaData, |
|
|
48 |
varInt = benz_idx, |
|
|
49 |
bppar_type = BiocParallel::SerialParam(), |
|
|
50 |
g_lib = c("SL.mean", "SL.glm"), |
|
|
51 |
Q_lib = c("SL.mean", "SL.glm") |
|
|
52 |
) |
|
|
53 |
|
|
|
54 |
limmaTMLEout <- modtest_ic(biotmle = biomarkerTMLEout) |
|
|
55 |
|
|
|
56 |
volcano_ic(biotmle = limmaTMLEout) |
|
|
57 |
} |
|
|
58 |
} |