# 3 clusters with 5% noise
dsd <- DSD_GaussianStatic(k=3, noise=0.05)
# Use DBSCAN to recluster micro clusters
dsc <- DSC_ClusTree()
cluster(dsc, dsd, 500)
DBSCAN <- DSC_DBSCAN(eps = .05)
recluster(DBSCAN,dsc)
plot(DBSCAN, dsd)
# cluster some data with DBSCAN directly
DBSCAN <- DSC_DBSCAN(eps = .05)
cluster(DBSCAN, dsd, 500)
plot(DBSCAN, dsd)
Run the code above in your browser using DataLab