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