## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(streamMOA)
library(stream)
set.seed(1234)

## ----install, eval=FALSE------------------------------------------------------
# install.packages(c("stream", "streamMOA"))

## ----load-package-------------------------------------------------------------
library(streamMOA)
library(stream)

## ----create-stream------------------------------------------------------------
stream <- DSD_Gaussians(k = 3, d = 2, noise = 0.05)
get_points(stream, n = 5)

## ----plot-stream, fig.width=6, fig.height=5-----------------------------------
plot(stream, n = 500)

## ----cluster-stream-----------------------------------------------------------
clustering <- DSC_CluStream(m = 50, horizon = 100, k = 3)
update(clustering, stream, n = 500)
clustering

## ----inspect-clustering, fig.width=6, fig.height=5----------------------------
get_microclusters(clustering)
get_macroclusters(clustering)
plot(clustering, stream, type = "both")