dsd <- DSD_Gaussians(k=3, noise=0.05)
dstream <- DSC_DStream(gridsize=0.05)
cluster(dstream, dsd, 500)
dstream
plot(dstream, dsd)
# create a static copy of the clustering
static <- DSC_Static(dstream)
static
plot(static, dsd)
# copy only the 5 largest clusters
static2 <- DSC_Static(dstream, k_largest=5)
static2
plot(static2, dsd)
# copy all clusters with a weight of at least .3
static3 <- DSC_Static(dstream, min_weight=.3)
static3
plot(static3, dsd)
Run the code above in your browser using DataLab