r - R の arulesSequence パッケージを使用したシーケンス マイニング

Question

シーケンス マイニングについて学習しようとしています。例として、ウィキブックから次のコードを実行しました。cspade 関数の実行に 30 分以上かかりました (まだ実行中です) が、例では 1 秒もかからないはずです。なぜこれが起こっているのか誰にも分かりますか？

install.packages("arules")
install.packages("arulesSequences")

library(Matrix)
library(arules)
library(arulesSequences)

x <- read_baskets(con = system.file("misc", "zaki.txt", package = "arulesSequences"), info = c("sequenceID","eventID","SIZE"))
as(x, "data.frame")

s1 <- cspade(x, parameter = list(support = 0.4), control = list(verbose =TRUE))