stream <- DSD_Gaussians(k=3, d=2, noise=.05)
tnn <- DSC_tNN(r=.1, noise=.05)
update(tnn, stream, n=100)
# find the assignment for the next 100 points to
# micro-clusters in dsc. This uses the model's assignemnt function
points <- get_points(stream, n=100)
a <- get_assignment(tnn, points)
a
# show the assigned points as blue circles and the unassigned points
# as blue dots
plot(tnn, stream)
points(points[!is.na(a),], col="blue")
points(points[is.na(a),], col="blue", pch=20)
# use nearest neighbor assignment instead
get_assignment(tnn, points, method="nn")
Run the code above in your browser using DataLab