# NOT RUN {
# two-stage example
stream <- DSD_Gaussians(k = 3, d = 2,
separation_type = "Mahalanobis", separation = 4,
space_limit = c(0, 30), variance_limit = 0.8,
outliers = 10,
outlier_options = list(outlier_horizon = 1000))
mic_c <- DSC_MCOD(r = 1, t = 10, w = 1000)
mac_c <- DSC_Kmeans(3)
c <- DSC_TwoStage(mic_c, mac_c)
evaluate(c, stream, n = 1000, type = "macro",
measure = c("crand","outlierjaccard"))
reset_stream(stream)
plot(c, stream, n = 1000, type = "all")
# }
Run the code above in your browser using DataLab