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