### create a data stream and a micro-clustering
dsd <- DSD_GaussianStatic(k=3, d=3)
micro <- DSC_DenStream(initPoints=100)
cluster(micro, dsd, 500)
### recluster using weighted k-means
macro <- DSC_Kmeans(k=3)
recluster(macro, micro)
### plot clustering
plot(macro,dsd, main="Macro-clusters (DenStream + weighted k-means)")
Run the code above in your browser using DataLab