inst/extdata/mRNA/dxsmall.plots.R

data(dxsmall)
# dxsmall <- readRDS("dxsmall.rds")
genescovs <- cbind(as.data.frame(colData(dxsmall)),
                   t(assays(dxsmall)$logcounts))
is.na(genescovs$FAB) <- genescovs$FAB == "pending" 

library(reshape2)
melted <- melt(genescovs)

library(ggbeeswarm) 
p <- ggplot()
VanAndelInstitute/bifurcatoR documentation built on Oct. 13, 2024, 6:29 p.m.