Я использую априорную функцию для создания системы рекомендаций по элементам. Я успешно создал правила, используя:
tr <- read.transactions("itemList.csv", format = 'basket', sep=',')
rules <- apriori(tr, parameter = list(supp=0.01, conf=0.8))
rules <- sort(rules, by='confidence', decreasing = TRUE)
одно из правил: {яйца} => {молоко}
теперь мне нужны какие-то функции, которые печатают молоко, если я добавляю яйца.
> function(rules,'eggs')
'milk'
