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