set.seed(0)
# 3 clusters with 5% noise
dsd <- DSD_Gaussians(k=3, noise=0.05)
dsc <- DSC_DenStream(epsilon=.05)
cluster(dsc, dsd, 500)
dsc
# plot micro-clusters
plot(dsc, dsd)
# show macro-clusters (using density reachability)
plot(dsc, dsd, type="both")
# reclustering. DenStream micro-clusters with k-means instead
km <- DSC_Kmeans(k=3, weighted=TRUE)
recluster(km, dsc)
plot(km, dsd, type="both")
Run the code above in your browser using DataLab