## Testing arithemetic mean
Renv <- new.env(parent = globalenv())
Renv$a <-c(0:10, 50)
FLenv <- as.FL(Renv)
test_that("mean", {
result1=eval_expect_equal({
test1<-mean(a)
test2 <- mean(a,trim=0.1)
##test3 <- mean(a,trim=0.6)
},Renv,FLenv)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.