```
describe("rthtable", {
it("behaves similar to table", {
x <- rbind(
c(1,2),
c(1,1),
c(2,3),
c(1,2)
)
# rthval <- rthtable(x, c(2,3), 2)
# table <- matrix(c(1,0,2,0,0,1), 2, 3)
# expect_equal(rthval, table)
})
})
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.