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

params_current <- knitr::opts_chunk$get('params')
if (is.null(params_current)) params_current <- params 

r params_current$header

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


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