Nothing
# set-up ====
enumerate <- 0L
errorfun <- function(tt) {
if(isFALSE(tt)) stop(print(tt))
}
vc <- datasets::ability.cov$cov
expect_equal(
chol2inv(chol(vc)),
cinv(vc)
)
enumerate <- 1L
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.