Add files via upload

tanlabcode · web-flow · commit 5a501dcf6fde · 2019-01-09T21:46:29.000-05:00
diff --git a/R/BenchMark/MCA/analysis_library.R b/R/BenchMark/MCA/analysis_library.R
@@ -121,7 +121,7 @@ get_data <- function(tissue_name,
   
   data[[5]] = data_bulk_avg
   
-  saveRDS(data,file = paste0("data/",tissue_name,"_imputation.rds"))
+  saveRDS(data,file = paste0("data_sc_bulk/",tissue_name,"_imputation.rds"))
   
 }
 
@@ -209,7 +209,7 @@ pdf_dun_tsne <- function(tissue_name){
 
 pdf_dun_tsne1 = function(tissue_name){
   
-  data_tsne = readRDS(file = paste0("data_all/", tissue_name,"_TSNE.rds"))
+  data_tsne = readRDS(file = paste0("data_all/",tissue_name,"_TSNE.rds"))
   
   load(paste0("data_sc_bulk/sc_",tissue_name,".RData"))
   

Original file line number	Diff line number	Diff line change
`@@ -121,7 +121,7 @@ get_data <- function(tissue_name,`
`121`	`121`
`122`	`122`	`data[[5]] = data_bulk_avg`
`123`	`123`
`124`		`- saveRDS(data,file = paste0("data/",tissue_name,"_imputation.rds"))`
	`124`	`+ saveRDS(data,file = paste0("data_sc_bulk/",tissue_name,"_imputation.rds"))`
`125`	`125`
`126`	`126`	`}`
`127`	`127`
`@@ -209,7 +209,7 @@ pdf_dun_tsne <- function(tissue_name){`
`209`	`209`
`210`	`210`	`pdf_dun_tsne1 = function(tissue_name){`
`211`	`211`
`212`		`- data_tsne = readRDS(file = paste0("data_all/", tissue_name,"_TSNE.rds"))`
	`212`	`+ data_tsne = readRDS(file = paste0("data_all/",tissue_name,"_TSNE.rds"))`
`213`	`213`
`214`	`214`	`load(paste0("data_sc_bulk/sc_",tissue_name,".RData"))`
`215`	`215`