tests/testthat/test-DSC_BIRCH.R

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_BIRCH")

# create clusterer with r = 0.05
BIRCH <- DSC_BIRCH(threshold = .1,
  branching = 8,
  maxLeaf = 20)
update(BIRCH, stream, n = 10000)

BIRCH

## saveDSC is not implemented!
#saveDSC(BIRCH, file="BIRCH.Rds")
#db <- readDSC("BIRCH.Rds")
#
#expect_equal(BIRCH$RObj$micro, db$RObj$micro)
#expect_equal(BIRCH$macro, db$macro)
#
#unlink("BIRCH.Rds")

Try the stream package in your browser

Any scripts or data that you put into this service are public.

stream documentation built on March 7, 2023, 6:09 p.m.