# 3 clusters with 5% noise
dsd <- DSD_GaussianStatic(k=3, noise=0.05)
dsc <- DSC_Sample(20)
cluster(dsc, dsd, 500)
dsc
# plot micro-clusters
plot(dsc, dsd)
# reclustering (Kmeans is sufficient because DSC_Sample does not return weights)
kmeans <- DSC_Kmeans(3)
recluster(kmeans,dsc)
plot(kmeans,dsd)
Run the code above in your browser using DataLab