Задание на след. раз следующее:
° Объединить все файлы о продажах на заправках Газпромнефть по всем АЗС за три дня
° Провести Market Basket Analysis, выявить наиболее интересные и практически применимые с вашей точки зрения правила
° Написать 0.5-1 страничку рекомендаций по проведенному анализу
Подсказка: напрямую способ, который мы использовали на занятии может не сработать.
Можете воспользоваться таким кодом (постарайтесь сами понять, что он делает):
# объединить файлы в один
data<-rbind(data1_short,data2_short,data3_short)
# Write our data.frame to a csv
write.csv(data, "transactions.csv")
library(arules)
# Read that csv back in
transactions <- read.transactions(
file = "transactions.csv",
format = "single",
sep = ",",
cols=c("transaction","product"),
rm.duplicates = T)