## Not run:
# stream <- DSD_Benchmark(1)
# animate_data(stream, horizon=100, n=5000, xlim=c(0,1), ylim=c(0,1))
#
# ### animations can be replayed with the animation package
# library(animation)
# animation::ani.options(interval=.1) ## change speed
# ani.replay()
#
# ### animations can also be saved as HTML, animated gifs, etc.
# saveHTML(ani.replay())
#
# ### animate the clustering process with evaluation
# ### Note: we choose to ignor noise points even if the algorithm would assign
# ### them to a cluster
# reset_stream(stream)
# dbstream <- DSC_DBSTREAM(r=.04, lambda=.1, gaptime=100, Cm=3,
# shared_density=TRUE, alpha=.2)
#
# animate_cluster(dbstream, stream, horizon=100, n=5000,
# measure="crand", type="macro", assign="micro", noise = "ignor",
# plot.args = list(xlim=c(0,1), ylim=c(0,1), shared = TRUE))
# ## End(Not run)
Run the code above in your browser using DataLab