library(SeuratDisk)
library(Seurat)
setwd("/share/nas1/huangls/project/single-cell/20220526/ann1/3.seurat_cluster/B0507-old/cell_ann")
brain.loom <- Connect(filename = "l5_all.loom", mode = "r")
brain <- as.Seurat(brain.loom)
saveRDS(brain, file = "Adolescent.l5_all.rds")
write.table(data.frame(barcode=row.names(brain@meta.data),brain@meta.data),file="Adolescent.l5_all.metadata.tsv",sep="\t",quote=F,row.names=F)
