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