# 3 clusters with 10% noise
stream <- DSD_Gaussians(k=3, noise=0.1)
dbstream <- DSC_DBSTREAM(r=0.1)
update(dbstream, stream, 500)
dbstream
plot(dbstream, stream)
# prune lightest micro-clusters for 20% of the weight of the clustering
static <- prune_clusters(dbstream, threshold=0.2)
static
plot(static, stream)
Run the code above in your browser using DataLab