if (requireNamespace("arulesSequences", quietly = TRUE)) {
x <- arulesSequences::read_baskets(
con = system.file("misc", "zaki.txt", package = "arulesSequences"),
info = c("sequenceID", "eventID", "SIZE")
)
utils <- patutils()
pm <- pat_cspade(
support = 0.4,
maxlen = 3,
quality_filter = utils$quality_min(support = 0.5)
)
pm <- fit(pm, x)
seqs <- discover(pm, x)
eval <- evaluate(pm, seqs)
eval$metrics
}
Run the code above in your browser using DataLab