Nothing
library("stream")
library("testthat")
setwd(tempdir())
### read and reload write some DSCs (see if Cpp serialization works)
set.seed(0)
stream <- DSD_Gaussians(k = 3, noise = 0.05)
######################################################################
context("DSC_BICO")
# create clusterer with r = 0.05
BICO <- DSC_BICO(
k = 3,
p = 10,
space = 100,
iterations = 10
)
update(BICO, stream, n = 10000)
BICO
## saveDSC is not implemented!
#saveDSC(BICO, file="BICO.Rds")
#db <- readDSC("BICO.Rds")
#
#expect_equal(BICO$RObj$micro, db$RObj$micro)
#expect_equal(BICO$macro, db$macro)
#
#unlink("BICO.Rds")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.