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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.