# 3 clusters with 10% noise
dsd <- DSD_GaussianStatic(k=3, noise=0.1)
birch <- DSC_BIRCH(r=0.01)
cluster(birch, dsd, 500)
birch
plot(birch, dsd)
# prune 10% of the cluster weight
static <- prune_clusters(birch, threshold=0.1)
static
plot(static, dsd)
Run the code above in your browser using DataLab