# 3 clusters with 5% noise
dsd <- DSD_GaussianStatic(k=3, noise=0)
dsc <- DSC_BIRCH(radius=0.01)
cluster(dsc, dsd, 500)
# recluster micro-clusters
kmeans <- DSC_Kmeans(k=3)
recluster(kmeans, dsc)
plot(kmeans, dsd)
# Kmeans can also directly cluster data (original data are considered
# micro-cluster centers)
kmeans <- DSC_Kmeans(k=3)
cluster(kmeans, dsd, 500)
plot(kmeans, dsd)
Run the code above in your browser using DataLab