set.seed(1500)
# Set up a pipeline with a DSD data source, DSF Filters and then a DST task
cluster_pipeline <- DSD_Gaussians(k = 3, d = 2) %>%
DSF_Scale() %>%
DST_Runner(DSC_DBSTREAM(r = .3))
cluster_pipeline
# the DSD and DST can be accessed directly
cluster_pipeline$dsd
cluster_pipeline$dst
# update the DST using the pipeline, by default update returns the micro clusters
update(cluster_pipeline, n = 1000)
cluster_pipeline$dst
get_centers(cluster_pipeline$dst, type = "macro")
plot(cluster_pipeline$dst)
Run the code above in your browser using DataLab