suppressPackageStartupMessages({
library("SummarizedExperiment")
library("magrittr")
library("plotlyutils")
library("plotly")
library("limma")
})
data(GBMdata, package="plotlyvignettes")
mat <- assay(GBMdata) + 0.5
# ind <- sample(1:ncol(mat), 30)
plotly_density(
log2(mat),
palette=colorspace::rainbow_hcl,
xlab = "log<sub>2</sub>(reads + 0.5)") %>%
layout(showlegend = FALSE)