# NOT RUN {
# data with 3 clusters and 5% noise
stream <- DSD_Gaussians(k=3, d=2, noise=0.05)
# 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 micro-clusters
plot(clustree, stream, , type = "both")
# create a two stage clusering using ClusTree and reachability reclustering
CTxReach <- DSC_TwoStage(
micro=DSC_ClusTree(maxHeight=3),
macro=DSC_Reachability(epsilon = .15)
)
CTxReach
update(CTxReach, stream, 1000)
plot(CTxReach, stream, type = "both")
# }
Run the code above in your browser using DataLab