stream <- DSD_mlbenchGenerator("cassini")
# Recluster micro-clusters from tNN with reachability using epsilon=2r, i.e.,
# two micro-clusters are reachable if their assignment areas overlap.
tnn <- DSC_tNN(r=0.1)
update(tnn, stream, 500)
reach <- DSC_Reachability(epsilon=0.2)
recluster(reach, tnn)
plot(reach, stream, type="both")
# For comparison we using reachability clustering directly on data points
# Note: reachability is not a data stream clustering algorithm!
reach <- DSC_Reachability(epsilon=0.2)
update(reach, stream, 500)
reach
plot(reach, stream)
Run the code above in your browser using DataLab