context("test-listoutput") test_that("return list works", { x <- matrix(c(1.,1.,1.,2.,3.,5.), 3, 2) qr <- QREcon(x) expect_equal(qr$q %*% qr$r, x) expect_equal(t(qr$q) %*% qr$q, diag(2)) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.