## continue example
example(ruleInduction, package = "arulesSequences")
## empty
info(s2) <- info(s2)
info(r2) <- info(r2)
## item info
itemInfo(s2)
## time info
z <- as(zaki, "timedsequences")
timeInfo(z)
Run the code above in your browser using DataLab