## Testing arithemetic mean
Renv <- new.env(parent = globalenv())
Renv$a <-c(0:10, 50)
Renv$b<-mean(Renv$a)
FLenv <- as.FL(Renv)
## Trim not supported currently.
test_that("Testing mean https://app.asana.com/0/143316600934101/146270267894104",
{
result2=eval_expect_equal({test2<-c(b, mean(a, trim = 0.10))}
,Renv,FLenv)
##print(result2)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.