tests/testthat/test-get_SNPgroup_counts.R

test_that("get_SNPgroup_counts works", {

    merged_DT <- echodata::get_Nalls2019_merged()
    snp_groups <- get_SNPgroup_counts(merged_DT = merged_DT)
    testthat::expect_equal(
        names(snp_groups),
        c("snp_groups","locus_summary","consensus_summary"))
})
RajLabMSSM/echodata documentation built on Nov. 21, 2023, 8 a.m.