# NOT RUN {
out <- gen_stream(1, sd=15)
zz <- as.matrix(out$data)
clst <- get_clusters(zz, filename = NULL, thres = 0.95,
vis = TRUE, epsilon = 5, miniPts = 10,
rolling = FALSE)
clst_loc <- clst$data[ ,1:2]
out <- tune_cpdbee_2D(zz, clst_loc)
out$best
# }
Run the code above in your browser using DataLab