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