describe("rthnorm", {
it("behaves like norm", {
x <- cbind(1, 1:10)
rthval <- rthnorm(x)
rval <- norm(x, type="2")
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.