tests/testthat/tests_linkage.R

cat("tests_linkage.R:\n")

locinfile <- genepopExample('sample.txt')
outfile <- test_LD(locinfile,"sample.txt.DIS")
testthat::expect_equal(readLines(outfile)[68],
             "last pop        ADH thre ADH-5      0.334362     0.000890   166751")

Try the genepop package in your browser

Any scripts or data that you put into this service are public.

genepop documentation built on Jan. 22, 2023, 1:07 a.m.