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