# NOT RUN {
event_stream <- data.frame(product=c("P45","P134","P45","P134","P134","P45","P134"),
sales=c(2,12,18,16,18,24,8),
alert=c(NA,NA,NA,NA,NA,"Alert P45","Alert P134"),
.clazz=c(2,12,18,16,18,24,8))
pc <- HSC_PC_None()
cons_stream <- classify(pc,event_stream)
# }
Run the code above in your browser using DataLab