pvclust_show_signif_gradient | R Documentation |
Shows the gradient of significance of branches in a dendrogram, based on a pvclust object
pvclust_show_signif_gradient(
dend,
pvclust_obj,
signif_type = c("bp", "au"),
signif_col_fun = colorRampPalette(c("black", "darkred", "red")),
...
)
dend |
a dendrogram object |
pvclust_obj |
a pvclust object |
signif_type |
a character scalar (either "bp" or "au"), indicating which of the two should be used to update the dendrogram. |
signif_col_fun |
a function to create colors for the significant gradient. Default is: colorRampPalette(c("black", "darkred", "red")) |
... |
not used |
A dendrogram with updated branches
pvclust_show_signif, pvclust_show_signif_gradient
## Not run:
library(pvclust)
data(lung) # 916 genes for 73 subjects
set.seed(13134)
result <- pvclust(lung[, 1:20], method.dist = "cor", method.hclust = "average", nboot = 100)
dend <- as.dendrogram(result)
result %>%
as.dendrogram() %>%
hang.dendrogram() %>%
plot(main = "Cluster dendrogram with AU/BP values (%)")
result %>% text()
result %>% pvrect(alpha = 0.95)
dend %>%
pvclust_show_signif(result) %>%
plot()
dend %>%
pvclust_show_signif(result, show_type = "lwd") %>%
plot()
result %>% text()
result %>% pvrect(alpha = 0.95)
dend %>%
pvclust_show_signif_gradient(result) %>%
plot()
dend %>%
pvclust_show_signif_gradient(result) %>%
pvclust_show_signif(result) %>%
plot(main = "Cluster dendrogram with AU/BP values (%)\n bp values are highlighted by signif")
result %>% text()
result %>% pvrect(alpha = 0.95)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.