Nothing
context("melt")
test_that("melt matrix", {
A = matrix(1:4, nrow=2, ncol=2, dimnames=list(c('a','b'),c('x','y')))
expect_equal(melt_one(A), melt(A))
})
test_that("keep object name if multiple", {
A = matrix(1:4, nrow=2, ncol=2, dimnames=list(c('a','b'),c('x','y')))
B = A
res = melt(A, B)
expect_equal(colnames(res), c("Var1", "Var2", "A", "B"))
expect_equal(res$A, res$B)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.