# Cassini dataset
dsd <- DSD_mlbenchGenerator("cassini")
hierarchical <- DSC_Hierarchical(k=3, method="single")
cluster(hierarchical, dsd, 500)
plot(hierarchical, dsd)
# Hierarchical can also recluster micro-clusters
dsc <- DSC_DenStream()
cluster(dsc, dsd, 500)
# reclustering by specifying k
hierarchical <- DSC_Hierarchical(k=3, method="single")
recluster(hierarchical, dsc)
plot(hierarchical, dsd)
# reclustering by specifying height
hierarchical <- DSC_Hierarchical(h=.01, method="single")
recluster(hierarchical, dsc)
plot(hierarchical, dsd)
Run the code above in your browser using DataLab