set.seed(1500)
stream <- DSD_Gaussians(k = 3, d = 2, noise = .1)
dbstream <- DSC_DBSTREAM(r = .1)
assignment <- update(dbstream, stream, n = 100, return = "assignment")
plot(dbstream, stream, type = "both")
# DBSTREAM returns cluster assignments (see DSC_DBSTREAM).
head(assignment)
Run the code above in your browser using DataLab