## ----style, echo=FALSE-------------------------------------------------------- knitr::opts_chunk$set(error=FALSE, warning=FALSE, message=FALSE) ## ----------------------------------------------------------------------------- library(scRNAseq) fluidigm <- ReprocessedFluidigmData() fluidigm ## ----------------------------------------------------------------------------- out <- listDatasets() ## ---- echo=FALSE-------------------------------------------------------------- out <- as.data.frame(out) out$Taxonomy <- c(`10090`="Mouse", `9606`="Human", `8355`="Xenopus")[as.character(out$Taxonomy)] out$Call <- sprintf("`%s`", out$Call) knitr::kable(out) ## ----------------------------------------------------------------------------- sce <- ZeiselBrainData(ensembl=TRUE) head(rownames(sce)) ## ----------------------------------------------------------------------------- sce <- ZeiselBrainData(ensembl=TRUE, location=TRUE) head(rowRanges(sce))