# NOT RUN {
# Seurat objects for two pbmc datasets
tenx <- readRDS('tenx.RDS')
seqwell <- readRDS('seqwell.RDS')
# create liger object, using project names
ligerex <- seuratToLiger(list(tenx, seqwell))
# create liger object, passing in names explicitly, using hvg.info genes
ligerex2 <- seuratToLiger(list(tenx, seqwell), names = c('tenx', 'seqwell'), num.hvg.info = 2000)
# Seurat object for joint analysis
pbmc <- readRDS('pbmc.RDS')
# create liger object, using 'protocol' for dataset names
ligerex3 <- seuratToLiger(pbmc, combined.seurat = TRUE, meta.var = 'protocol', num.hvg.info = 2000)
# }
Run the code above in your browser using DataLab