# NOT RUN {
stream <- DSD_Gaussians(k=3)
# Create a clustering process that uses a window for the online stage and
# k-means for the offline stage (reclustering)
win_km <- DSC_TwoStage(
micro=DSC_Window(horizon=100),
macro=DSC_Kmeans(k=3)
)
win_km
update(win_km, stream, 200)
win_km
plot(win_km, stream, type="both")
evaluate(win_km, stream, assign="macro")
# }
Run the code above in your browser using DataLab