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