Update Scissor.R with 'data' Layer for Seurat V5

[yifanfu01]

Hi sunduanchen, Due to the upgrade of Seurat, the way to get data matrix has changed. Guys met error:

infos1 <- Scissor(bulk_dataset, sc_dataset, phenotype, alpha = 0.05, family = "cox", Save_file = 'Scissor_LUAD_survival.RData')
Error in as.matrix(sc_dataset@assays$RNA@data) :
no slot of name"data" for this object of class "Assay5"

as mentioned in #59 Here, I fixed the problem and hope it will help.