#testing product function
Renv <- new.env(parent = globalenv())
Renv$a <-1:7
Renv$b <- matrix(rnorm(9),3)
FLenv <- as.FL(Renv)
test_that("prod", {
result1=eval_expect_equal({
test1<-prod(a)
test2 <- prod(b)
test3 <- prod(b,a)
},Renv,FLenv,
tolerance=1e-7)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.