dsd <- DSD_GaussianStatic(k=3, d=2)
d <- get_points(dsd, 500)
head(d)
# creating the DSD_Wrapper from d
replayer <- DSD_Wrapper(d, k=3)
replayer
# creating 2 clusterers of different algorithms
dsc1 <- DSC_CluStream()
dsc2 <- DSC_DenStream(initPoints=100)
# clustering the same data in 2 DSC objects
cluster(dsc1, replayer, 500)
reset_stream(replayer) # resetting the replayer to the first position
cluster(dsc2, replayer, 500)
Run the code above in your browser using DataLab