Seurat to h5ad summary

#  Install and load  SeuratData Medium pbmc3k Data sets 
# library(SeruatData)
# 1.---->install.packages("/Users/xiaokangyu/Desktop/ Single cell learning / Single cell datasets /pbmc_3k/pbmc3k.SeuratData_3.1.4.tar.gz",repos=NULL,type="source")
# 2.---->library(pbmc3k.SeuratData)
# 3.---->pbmc3k=LoadData("pbmc3k")
rm(list=ls())
setwd("/Users/xiaokangyu/Desktop/ Single cell learning / Single cell datasets /pbmc_3k/")
library(Seurat)
suppressMessages(library(SeuratDisk))
library(SeuratData)
## create Seurat object
#pbmc3k <- CreateSeuratObject(data,meta.data = label)
library(pbmc3k.SeuratData)
pbmc3k=LoadData("pbmc3k")
[e-mail]$seurat_annotations=as.character([e-mail]$seurat_annotations)
SaveH5Seurat(pbmc3k, filename = "pbmc3k.h5Seurat")

Convert("pbmc3k.h5Seurat", dest = "h5ad")