Nothing
test_that("qMUVR works", {
## An error will occur if you use different number of observations for X and Y
expect_error( regrModel <- qMUVR2(X = XRVIP2,
Y = Yotu))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.