if (FALSE) {
library(scRNAseq)
seger <- SegerstolpePancreasData()
SCEAnnData(from = "SingleCellExperiment", to = "AnnData", sce = seger, X_name = "counts")
# need users to provide the output file
sce <- SCEAnnData(
from = "AnnData", to = "SingleCellExperiment",
anndata.file = "path/to/seger.h5ad"
)
}
Run the code above in your browser using DataLab