Here, we will use the HPCA and Blueprint/ENCODE datasets as our references and (yet another) PBMC dataset as the test. ```{r} library(TENxPBMCData) pbmc <- TENxPBMCData("pbmc8k") library(SingleR) library(celldex) hpca <- HumanPrimaryCellAtlasData(ensembl=TRUE) bpe <- BlueprintEncodeDa...