context("Numerize data")
test_that("Matrix inverse", {
dia <- ggplot2::diamonds
dia2 <- el.numerize(dia)
expect_equal(colnames(dia2)[4], "cutVery_Good")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.