tumor_file <- system.file("extdata",
"removebatch_SKCM_Skin_TCGA_exp_tumor_test.rds",
package = "TransProR")
Normal_file <- system.file("extdata",
"removebatch_SKCM_Skin_Normal_TCGA_GTEX_count_test.rds",
package = "TransProR")
ouput_file <- file.path(tempdir(), "all_data.rds")
all_data <- merge_gtex_tcga(gtex_data_path = tumor_file,
tcga_exp_path = Normal_file,
output_path = ouput_file)
Run the code above in your browser using DataLab