## ----setup, include = FALSE--------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----------------------------------------------------------------------------- suppressPackageStartupMessages({ library(ExperimentHub) library(SingleCellExperiment) library(TabulaMurisData) }) eh <- ExperimentHub() query(eh, "TabulaMurisData") ## ----------------------------------------------------------------------------- droplet <- eh[["EH1617"]] droplet droplet <- TabulaMurisDroplet() droplet ## ----------------------------------------------------------------------------- set.seed(1234) se <- droplet[, sample(seq_len(ncol(droplet)), 250, replace = FALSE)] se ## ----------------------------------------------------------------------------- se <- scran::computeSumFactors(se) se <- scater::logNormCounts(se) se <- scater::runPCA(se) se <- scater::runTSNE(se) ## ---- eval=FALSE-------------------------------------------------------------- # if (require(iSEE)) { # iSEE(se) # } ## ----------------------------------------------------------------------------- sessionInfo()