dsd <- DSD_BarsAndGaussians(noise=.05)
plot(dsd)
# we set Cm=.8 to pick up the lower density clusters
dstream1 <- DSC_DStream(gridsize=1, Cm=3)
cluster(dstream1, dsd, 1000)
dstream1
# micro-clusters (these are "used" grid cells)
nclusters(dstream1)
head(get_centers(dstream1))
# plot (DStream provides additional grid visualization)
plot(dstream1, dsd)
plot(dstream1, dsd, grid=TRUE)
# look only at dense grids
nclusters(dstream1, grid_type="dense")
plot(dstream1, dsd, grid=TRUE, grid_type="dense")
# look at transitional and sparse cells
plot(dstream1, dsd, grid=TRUE, grid_type="transitional")
plot(dstream1, dsd, grid=TRUE, grid_type="sparse")
### Macro-clusters
# standard D-Stream uses reachability
nclusters(dstream1, type="macro")
get_centers(dstream1, type="macro")
plot(dstream1, dsd, type="both", grid=TRUE)
evaluate(dstream1, dsd, measure="crand", type="macro")
# use attraction for reclustering
dstream2 <- DSC_DStream(gridsize=1, attraction=TRUE, Cm=3)
cluster(dstream2, dsd, 1000)
dstream2
plot(dstream2, dsd, type="both", grid=TRUE)
evaluate(dstream2, dsd, measure="crand", type="macro")
Run the code above in your browser using DataLab