## Not run: ------------------------------------
# #Generate HS patterns
# a <- generator()
# #switch off recognition for all patterns other than HS
# interpret(window = a, useriq=FALSE, hsiq=TRUE, btpiq=FALSE, rtpiq=FALSE, dtpiq=FALSE)
## ---------------------------------------------
Run the code above in your browser using DataLab