# NOT RUN {
# data with 3 clusters
stream <- DSD_Gaussians(k=3, d=2)
# cluster with streamKM++
streamkm <- DSC_StreamKM(sizeCoreset=10000, numClusters=3, length=10000)
update(streamkm, stream, 10000)
streamkm
# plot macro-clusters
plot(streamkm, stream, type="macro")
# }
Run the code above in your browser using DataLab