# Define file paths for tumor and normal data from the data folder
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")
output_file <- file.path(tempdir(), "Wilcoxon_rank_sum_testoutRst.rds")
# Run the Wilcoxon rank sum test
outRst <- Wilcoxon_analyze(
tumor_file = tumor_file,
normal_file = normal_file,
output_file = output_file,
logFC_threshold = 2.5,
fdr_threshold = 0.01
)
# View the top 5 rows of the result
head(outRst, 5)
Run the code above in your browser using DataLab