knitr::opts_chunk$set(echo = FALSE, fig.align='center')

r params$header

normalized data

params$mat_norm[1:10, 1:6]
if (is.null(params$sample_class)) {
    reads <- rexseek::as_SingleCellExperiment(params$mat_norm)
} else {
    reads <- rexseek::as_SingleCellExperiment(params$mat_norm, params$sample_class)
}
reads %>% rexseek::plot_PCA(shape = params$shape, color = params$color)
reads %>% rexseek::plot_TSNE(shape = params$shape, color = params$color)


dongzhuoer/rexseek documentation built on Dec. 16, 2019, 3:19 a.m.