## Not run:
# data <- amidst_data_stream(system.file("extdata","sea.arff",
# package="ramidst"))
# results <- nb_concept_drift_detector_from_stream(data,class_index = -1L,
# window_size=1000L,transition_variance=0.1,hidden_vars=1L)
# re <- 0
# for (k in 1:length(results)) re[k] <- results[[k]]
# ymin = min(re)-0.05
# ymax = max(re)+0.05
# plot(re,type="l",ylim=c(ymin,ymax),ylab="Hidden variable",
# xlab="Instance number (x 1000)")
# abline(v=15,col="red")
# abline(v=30,col="red")
# abline(v=45,col="red")
# ## End(Not run)
Run the code above in your browser using DataLab