# Cassini dataset
dsd <- DSD_mlbenchGenerator("cassini")
# Use hierarchical clustering to recluster micro-clusters
dsc <- DSC_tNN(r=.1)
cluster(dsc, dsd, 500)
# reclustering using single-link and specifying k
hierarchical <- DSC_Hierarchical(k=3, method="single")
recluster(hierarchical, dsc)
hierarchical
plot(hierarchical, dsd, type="both")
# reclustering by specifying height
hierarchical <- DSC_Hierarchical(h=.2, method="single")
recluster(hierarchical, dsc)
hierarchical
plot(hierarchical, dsd, type="both")
# For comparison we use hierarchical clustering directly on the data
# Note: hierarchical clustering is not a data stream clustering algorithm!
hierarchical <- DSC_Hierarchical(k=3, method="single")
cluster(hierarchical, dsd, 500)
plot(hierarchical, dsd)
Run the code above in your browser using DataLab