describe("rthxpos", {
it("transposes a vector", {
x <- matrix(runif(30), 5, 6)
rthval <- rthxpos(x)
rval <- t(x)
expect_equal(rthval, rval, tolerance = 0.1)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.