tests/testthat/test-find_consensus_SNPs.R

test_that("find_consensus_snps works", {
    
    dat <- echodata::BST1
    dat$Consensus_SNP <- NULL
    dat2 <- echodata::find_consensus_snps(dat = dat)
    
    testthat::expect_true(!"Consensus_SNP" %in% colnames(dat))
    testthat::expect_true("Consensus_SNP" %in% colnames(dat2))
})
RajLabMSSM/echodata documentation built on Nov. 21, 2023, 8 a.m.