# create data stream with three clusters in 3-dimensional space
dsd <- DSD_Gaussians(k=3, d=3)
# get points from stream
get_points(dsd, n=5)
# get points with true cluster assignment
p <- get_points(dsd, n=5, assignment=TRUE)
attr(p, "assignment")
# plotting the data (scatter plot matrix, first and third dimension, and first
# two principal components)
plot(dsd)
plot(dsd, dim=c(1,3))
plot(dsd, method="pc")
Run the code above in your browser using DataLab