context("test-fbind")
test_that("fbind() binds factors", {
x<-factor(c('a','b'))
y<-factor(c('c','d'))
z<-factor(c('a','b','c','d'))
expect_identical(fbind(x,y),z)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.