stream <- DSD_Gaussians(k = 3, noise = 0.05)
# create clusterer with r = 0.05
dbstream1 <- DSC_DBSTREAM(r = .05)
update(dbstream1, stream, 1000)
dbstream1
saveDSC(dbstream1, file="dbstream.Rds")
dbstream2 <- readDSC("dbstream.Rds")
dbstream2
## cleanup
unlink("dbstream.Rds")
Run the code above in your browser using DataLab