#!/usr/bin/env Rscript

if (!require(arules)) install.packages("arules", repos = "https://cran.r-project.org/", Ncpus = 16) # nolint
library(arules)
if (!require(arulesViz)) install.packages("arulesViz", repos = "https://cran.r-project.org/", Ncpus = 16) # nolint
library(arulesViz)



t <- read.transactions("AssociationRules.csv", format = "basket", sep = " ")
image(t)

summary(t)

# most freq
names(sort(itemFrequency(t), decreasing=TRUE)[1])
# max amount of items
max(size(t))


# 0..0.01 support, 0 confidence
rules0 <- apriori(t, parameter=list(supp=0.01, conf=0))
length(rules0)
rules05 <- apriori(t, parameter=list(supp=0.01, conf=0.5))
length(rules05)

plot(rules0, measure=c("support", "confidence"), shading="lift")
plot(rules0, measure=c("support", "lift"))