a b/man/plot.bioTMLE.Rd
1
% Generated by roxygen2: do not edit by hand
2
% Please edit documentation in R/plots.R
3
\name{plot.bioTMLE}
4
\alias{plot.bioTMLE}
5
\title{Plot p-values from moderated statistical tests for class biotmle}
6
\usage{
7
\method{plot}{bioTMLE}(x, ..., type = "pvals_adj")
8
}
9
\arguments{
10
\item{x}{object of class \code{biotmle} as produced by an appropriate call
11
to \code{biomarkertmle}}
12
13
\item{...}{additional arguments passed \code{plot} as necessary}
14
15
\item{type}{character describing whether to provide a plot of unadjusted or
16
adjusted p-values (adjustment performed via Benjamini-Hochberg)}
17
}
18
\value{
19
object of class \code{ggplot} containing a histogram of the raw or
20
 Benjamini-Hochberg corrected p-values (depending on user input).
21
}
22
\description{
23
Histogram of raw or FDR-adjusted p-values from the moderated t-test.
24
}
25
\examples{
26
\dontrun{
27
library(dplyr)
28
library(biotmleData)
29
library(SuperLearner)
30
library(SummarizedExperiment)
31
data(illuminaData)
32
33
colData(illuminaData) <- colData(illuminaData) \%>\%
34
  data.frame() \%>\%
35
  mutate(age = as.numeric(age > median(age))) \%>\%
36
  DataFrame()
37
benz_idx <- which(names(colData(illuminaData)) \%in\% "benzene")
38
39
biomarkerTMLEout <- biomarkertmle(
40
  se = illuminaData,
41
  varInt = benz_idx,
42
  bppar_type = BiocParallel::SerialParam(),
43
  g_lib = c("SL.mean", "SL.glm"),
44
  Q_lib = c("SL.mean", "SL.glm")
45
)
46
47
limmaTMLEout <- modtest_ic(biotmle = biomarkerTMLEout)
48
49
plot(x = limmaTMLEout, type = "pvals_adj")
50
}
51
}