## Testing FLIs
test_that("check FLIs",
{
expect_eval_equal(initF.FLMatrix,AdapteR::is.FLMatrix,base::is.matrix,n=5)
expect_eval_equal(initF.FLVector,AdapteR::is.FLVector,base::is.vector,n=5)
expect_eval_equal(initF.FLVector,AdapteR::is.FLVector,base::is.vector,n=5,isRowVec=TRUE)
expect_is(initF.FLTable(rows=5,cols=4),"FLTable")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.