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)
})
LieberInstitute/brainstorm documentation built on Dec. 17, 2021, 12:03 a.m.