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