# \donttest{
library(ActiveLearning4SPM)
set.seed(123)
dat <- simulate_stream(T0 = 50, TT = 100, T_min_IC = 20, T_max_IC = 30)
out <- active_learning_pHMM(y = dat$y,
true_x = dat$x,
T0 = 50,
B = 0.1)
table(out$decision)
out$scores$f1
# }
Run the code above in your browser using DataLab