x <- arulesSequences::read_baskets(
con = system.file("misc", "zaki.txt", package = "arulesSequences"),
info = c("sequenceID", "eventID", "SIZE")
)
pm <- pat_cspade(parameter = list(support = 0.4))
pm <- fit(pm, x)
seqs <- discover(pm)
as(seqs, "data.frame")
Run the code above in your browser using DataLab