dsd <- DSD_Benchmark(1)
animate_data(dsd, n=5000, xlim=c(0,1), ylim=c(0,1), horizon=100)
### 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
reset_stream(dsd)
dsc <- DSC_tNN(r=.1, lambda=.01, shared_density=TRUE,
alpha=.2, noise=.1)
animate_cluster(dsc, dsd, n=5000, horizon=100,
evaluationMeasure="crand", evaluationType="macro", evaluationAssign="micro",
xlim=c(0,1),ylim=c(0,1), type="shared")
Run the code above in your browser using DataLab