# 3 clusters with 5% noise
dsd <- DSD_GaussianStatic(k=3, noise=0.05)
dsc <- DSC_DenStream(epsilon=.05,minPoints=3,initPoints=100)
cluster(dsc, dsd, 500)
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