dsd <- DSD_Gaussians(k=3, d=2, noise=0.05)
dsc <- DSC_Window(horizon=100)
dsc
cluster(dsc, dsd, 200)
dsc
# plot micro-clusters
plot(dsc, dsd)
# animation for a window using a damped window model. The weight decays
# with a half-life of 25
dsc <- DSC_Window(horizon=25, lambda=1/25)
animate_cluster(dsc, dsd, horizon=1, n=100, xlim=c(0,1), ylim=c(0,1))Run the code above in your browser using DataLab