# create data stream with three clusters in 2D
stream1 <- DSD_Gaussians(d = 2, k = 3)
stream2 <- DSD_UniformNoise(d = 2, range = rbind(c(-.5, 1.5), c(-.5, 1.5)))
combinedStream <- DSD_Mixture(stream1, stream2, prob = c(.9, .1))
combinedStream
get_points(combinedStream, n = 20)
plot(combinedStream, n = 200)
Run the code above in your browser using DataLab