stream <- DSD_mlbenchGenerator("cassini")
# Recluster micro-clusters from DSC_Sample with reachability
sample <- DSC_Sample(k = 200)
update(sample, stream, 1000)
reach <- DSC_Reachability(epsilon=0.3)
recluster(reach, sample)
plot(reach, stream, type="both")
# For comparison we using reachability clustering directly on data points
# Note: reachability is not a data stream clustering algorithm taking O(n^2)
# time and space.
reach <- DSC_Reachability(epsilon=0.2)
update(reach, stream, 500)
reach
plot(reach, stream)
Run the code above in your browser using DataLab