## ----get-sce------------------------------------------------------------------
library(ExperimentHub)
library(SingleCellExperiment)
eh = ExperimentHub()
dset <- query(eh , "GSE103322")
dset

## ----download-sce-------------------------------------------------------------
sce <- dset[[1]]

## ----metadata-----------------------------------------------------------------
head(SummarizedExperiment::colData(sce))

## ----non-tumor----------------------------------------------------------------
table(SummarizedExperiment::colData(sce)$non.cancer.cell.type)

## ----data---------------------------------------------------------------------
dset <- SummarizedExperiment::assays(sce)$TPM
dim(dset)
dset[1:4, 1:3]

## ----sessionInfo--------------------------------------------------------------
sessionInfo()