context("matching MRNs")
data(x_EMR)
data(y_EMR)
matched <- match_MRNs(x_EMR, y_EMR)
test_that("right number of names are matched", {
expect_equal(nrow(matched), 5)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.