1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/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"))
|
