# data with 3 clusters
set.seed(1000)
stream <- DSD_Gaussians(k = 3, d = 2, noise = 0.05)
clustree <- DSC_ClusTree(maxHeight = 3)
update(clustree, stream, 500)
clustree
plot(clustree, stream)
#' Use automatically the k-means reclusterer with k = 3 to create macro clusters
clustree <- DSC_ClusTree(maxHeight = 3, k = 3)
update(clustree, stream, 500)
clustree
plot(clustree, stream, type = "both")
Run the code above in your browser using DataLab