# 3 clusters with 5% noise
dsd <- DSD_GaussianStatic(k=3, noise=0.05)
dsc <- DSC_BIRCH(radius = .05)
cluster(dsc, dsd, 1000)
dsc
# plot micro-clusters
plot(dsc, dsd)
# reclustering
kmeans <- DSC_Kmeans(k=3)
recluster(kmeans,dsc)
plot(kmeans,dsd)
Run the code above in your browser using DataLab