# Load libraries
library(Seurat)
library(SeuratDisk)
library(zellkonverter)

# Let's load the h5ad file first
my_data <- readH5AD(file = "/home/youkim/adata_all_donors_all_cell_states_raw_counts_in_raw_normlog_counts_in_X_for_download_UPD_20230307.h5ad",
                    X_name = "X")

my_data@assays
# Convert the SCE object into a Seurat object
my_data <- as.Seurat(my_data, counts = my_data@assays@data$X)

my_data@assays@data$X
assays(my_data)