From 2ade61411a014b3eed24bd2b382687d55233a9b5 Mon Sep 17 00:00:00 2001 From: leshe4ka46 Date: Sat, 15 Nov 2025 16:30:38 +0300 Subject: R(Cluster) --- R_AR/main.r | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100755 R_AR/main.r (limited to 'R_AR/main.r') diff --git a/R_AR/main.r b/R_AR/main.r new file mode 100755 index 0000000..fd1f653 --- /dev/null +++ b/R_AR/main.r @@ -0,0 +1,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")) \ No newline at end of file -- cgit v1.2.3