set.seed(0)
### create a data stream and a micro-clustering
dsd <- DSD_Gaussians(k=3, d=3)
micro <- DSC_Sample(k=50)
cluster(micro, dsd, 500)
micro
### recluster using k-means
kmeans <- DSC_Kmeans(k=3)
recluster(kmeans, micro)
### plot clustering
plot(kmeans, dsd, main="Macro-clusters (Sampling + k-means)")
Run the code above in your browser using DataLab