tests/testthat/testClassify.R

test_that("classification method tests", {

data("ER_SET_sig")
data("ER_TCGA_RNAseq")
load("normalized_ER_TCGA_RNAseq.rda")
load("ER_classes_df.default_actual.rda")

ER_classes_df.default<- classify_gsva_percent(normalized_ER_TCGA_RNAseq, ER_SET_sig)

expect_equal(ER_classes_df.default_actual, ER_classes_df.default)

})
ozlemkaradeniz/PathAnalyser documentation built on April 30, 2022, 6:18 p.m.