Renv = new.env(parent = globalenv())
Renv$mat1 = matrix(1:16,ncol=4)
FLenv = as.FL(Renv)
test_that("Check for trace function ",{
result = eval_expect_equal({
test1 = tr(mat1)
},Renv,FLenv)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.