dsd <- DSD_Gaussians(k=3, d=2, noise=0.05, p=c(.2,.4,.6))
# recluster a micro-clusters
micro <- DSC_DStream(gridsize=0.05)
cluster(micro, dsd, 500)
macro <- DSC_Kmeans(k=3)
recluster(macro, micro)
# translate all micro-cluster ids
microToMacro(macro)
# plot some data points in grey
plot(dsd, col="grey", cex=.5, xlim=c(0,1), ylim=c(0,1))
# add micro-clusters and use the macro-cluster ids as color and weights as size
points(get_centers(macro, type="micro"),
col=microToMacro(macro),
cex=get_weights(macro, type="micro", scale=c(.5,3)))
# add macro-cluster centers (size is weight)
points(get_centers(macro, type="macro"),
cex = get_weights(macro, type="macro", scale=c(2,5)),
pch=3,lwd=3, col=1:3)
Run the code above in your browser using DataLab