# 3 clusters with 5% noise
dsd <- DSD_GaussianStatic(k=3, noise=0.05)
tnn <- DSC_tNN(r=0.05, lambda=.01, macro=FALSE)
cluster(tnn, dsd, 500)
tnn
# create a static copy of the clustering
static <- DSC_Static(tnn)
static
plot(static, dsd)
Run the code above in your browser using DataLab