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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.