transcriptome | R Documentation |
Transcriptome analysis of 57 bladder carcinomas on Affymetrix HG-U95A and HG-U95Av2 microarrays
transcriptome
A data frame with 2215 rows and 43 variables:
Individual 3
Individual 4
Individual 5
Individual 6
Individual 7
Individual 8
Individual 9
Individual 10
Individual 14
Individual 15
Individual 16
Individual 17
Individual 18
Individual 19
Individual 21
Individual 22
Individual 24
Individual 26
Individual 28
Individual 30
Individual 31
Individual 33
Individual 34
Individual 35
Individual 36
Individual 37
Individual 38
Individual 39
Individual 40
Individual 41
Individual 42
Individual 43
Individual 44
Individual 45
Individual 46
Individual 47
Individual 48
Individual 49
Individual 50
Individual 51
Individual 53
Individual 54
Individual 57
<https://www.ebi.ac.uk/biostudies/arrayexpress/studies/E-TABM-147>
<https://github.com/cran/ecp/tree/master/data>
if (requireNamespace("ggplot2", quietly = TRUE)) {
result <- fastcpd.mean(transcriptome$"10", trim = 0.005)
summary(result)
plot(result)
result_all <- fastcpd.mean(
transcriptome,
beta = (ncol(transcriptome) + 1) * log(nrow(transcriptome)) / 2 * 5,
trim = 0
)
plots <- lapply(
seq_len(ncol(transcriptome)), function(i) {
ggplot2::ggplot(
data = data.frame(
x = seq_along(transcriptome[, i]), y = transcriptome[, i]
),
ggplot2::aes(x = x, y = y)
) +
ggplot2::geom_line(color = "steelblue") +
ggplot2::geom_vline(
xintercept = result_all@cp_set,
color = "red",
linetype = "dotted",
linewidth = 0.5,
alpha = 0.7
) +
ggplot2::theme_void()
}
)
if (requireNamespace("gridExtra", quietly = TRUE)) {
gridExtra::grid.arrange(grobs = plots, ncol = 1, nrow = ncol(transcriptome))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.