tests/testthat/test-analyze.R

In Chris1221/coRge: An R package for the Examination of Multiple Correction Methodologies in Accurate Genomic Environments.

library(coRge)

# I should definitely fix this but for the moment
# Actual name is genEx
data(gen_toy)

# Actual name is exampleSamp
data(summary_toy)

expect_equal(analyze(i = 3, j = 3, local = TRUE, gen = genEx, summary = exampleSamp, mode = "ld", output = "/dev/null", nc = 5), 0)

expect_equal(analyze(i = 3, j = 3, local = TRUE, gen = genEx, summary = exampleSamp, mode = "default", output = "/dev/null", nc = 5), 0)

expect_equal(analyze(i = 3, j = 3, local = TRUE, gen = genEx, summary = exampleSamp, mode = "ld", output = "/dev/null", nc = 5, maf = TRUE, maf_range = c(0.01, 0.5)), 0)

expect_equal(analyze(i = 3, j = 3, local = TRUE, gen = genEx, summary = exampleSamp, mode = "default", output = "/dev/null", nc = 5, maf = TRUE, maf_range = c(0.01, 0.5)), 0)