test_that("FLVarCluster works ",{
deeptable <- FLTable(getTestTableName("tblLogRegr"),
"ObsID",
"VarID",
"Num_Val",
whereconditions=c("ObsID < 1001"))
clustervector <- FLVarCluster(deeptable,
0.75,
"COVAR",
whereconditions=" VarID>0 ")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.