tests/testthat/test_ancestr.R

In GregoryMatesi/RHiddenAncestries: Hidden Ancestries Group R Package

test_that("ancestr works on ancestryData", {
  data("ancestryData")
  testval <- ancestr( data = ancestryData, 
                      k=c("ref_AF_afr_1000G", 
                          "ref_AF_eur_1000G", 
                          "ref_AF_sas_1000G", 
                          "ref_AF_iam_1000G", 
                          "ref_AF_eas_1000G"), 
                      t="gnomAD_AF_afr", 
                      x0 = c(.2, .2, .2, .2, .2) )
  
  expect_equal(length(testval), expected = 9)
})