tests/testthat/test_Fis.R

cat("test_Fis.R:\n")

locinfile <- genepopExample('sample.txt')
outfile <- genedivFis(locinfile,outputFile = "sample.txt.DIV")
testthat::expect_equal(readLines(outfile)[130], "                      0.6736     -0.0722")
outfile <- genedivFis(locinfile, sizes=TRUE
                      , outputFile = "sample.txt.MSD")
testthat::expect_equal(readLines(outfile)[141], "                      4.0556      0.4658")

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.