tests/testthat/test-make_corLong.R

test_that("ncol & nrow corLong(test_snps)", {
    cor_test <- make_corLong(snps1 = test_snps, BrainTable1 = test_BrTable, ID_col1 = "Sample")
    expect_equal(ncol(cor_test), 5)
    expect_equal(nrow(cor_test), 6)
})
joshstolz/brainstorm documentation built on Aug. 10, 2021, 1:23 p.m.