Add files via upload

caokai1073 · Feb 28, 2023 · 30a3ddb · 30a3ddb
1 parent a108a15
commit 30a3ddb
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R process/spot/PDAC_SPOT.R b/R process/spot/PDAC_SPOT.R
@@ -46,7 +46,7 @@ colnames(scdataA) = paste0('cell',1:ncol(scdataA))
 
 # save SPOT and RNA ref file for uniPort input
 write.table(scdataA, quote = F,row.names = T, sep = '\t', file = paste0(file_path,'PDAC_scRNA.txt'))
-write.table(dataA, quote = F,row.names = T, sep = '\t', file = paste0(file_path,'PDAC_ST.txt'))
+write.table(dataA, quote = F,row.names = T, sep = '\t', file = paste0(file_path,'PDAC_SPOT.txt'))
 write.table(names, quote = F,row.names = T, sep = '\t', file = paste0(file_path,'PDAC_scRNA_label.txt'))
 
 # get coord from st data
@@ -67,8 +67,7 @@ ind <- as.data.frame(t(sapply(
 #-----------------------------------------------------------
 source(paste0(file_path,'spatial_function.R'))
 
-ot <- read.table(paste0(file_path,'OT_PDAC.txt'),sep = '\t',header = T, row.names = 1)
-
+ot <- read.table(paste0(file_path,'OT_PDAC.txt'),sep = '\t',header = T, row.names = 1) %>% t()
 rownames(names) <- names$cell
 ot_map <- mapCluster(ot, meta = names, cluster = 'cell_type', min_cut = 0.15, balance = T)