Я использую этот код
df_itemList<- read.csv('data.3.txt')
write.csv(df_itemList,"ItemList.csv", row.names = TRUE)
txn = read.transactions(file="ItemList.csv", rm.duplicates= TRUE, format="basket",sep=",",cols=1)
basket_rules <- apriori(txn,parameter = list(sup = 0.01, conf = 0.5,target="rules"))
Для запуска Apriori Alg на этих данных 
Выглядит так после преобразования его в df_itemList.CSV
код работает хорошо и генерирует около 29000 правил для наборов данных, состоящих из 99 записей (строк)
Но мои данные имеют (10000 записей)
для любого набора данных имеет 101 или более записей, код выполняется за миллисекунды и выдает всего 4 бессмысленных правила .....
, и я получаю этот ответ в консоли
Мои вопросы: Как мне запустить Apriori Alg для большего набора данных, более 99 записей.Или почему мой код не работает для большего набора данных ???