From 96ee3c776f7c4564a19302ae6211192212d114d7 Mon Sep 17 00:00:00 2001
From: LinlyBoi <thatguymax9001@gmail.com>
Date: Sat, 25 Dec 2021 13:31:13 +0200
Subject: [PATCH] Association Rules rules Fixed input to be numeric

---
 Data.R | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/Data.R b/Data.R
index 000df6f..f2f1ca3 100644
--- a/Data.R
+++ b/Data.R
@@ -5,16 +5,16 @@
 #install.packages('ggplot2')
 # Loading package
 #library(ClusterR)
-<<<<<<< HEAD
+
 library(cluster)
 library(gridExtra)
 library(ggplot2)
 library(grid)
 library(arules)
 
-=======
+
 #library(cluster)
->>>>>>> 3ff44982b86575dd8b3a7465fb787ea0be8aa788
+
 
 #Read spreadsheet file
 grocery_entries <- read.csv(file.choose())
@@ -53,7 +53,16 @@ keameans<-cbind(grocery_entries[3],grocery_entries[6])
 result<-kmeans(keameans,centers = k)
 final_result<-cbind(name_total_age,result$cluster)
 
-
+#Association Rules --Sewelam
+minsup <- readline("Enter minimum support: ")
+minconf <- readline("Enter minimum confidence: ")
+asoc_rules <- apriori(,parameter = list(supp = minsup,conf = minconf))
+write.csv(as(asoc_rules,"data.frame"),file = "pog.csv")
+
+n<-as.numeric(readline("Enter number of clusters"))
+keameans<-cbind(grocery_entries[3],grocery_entries[6])
+result<-kmeans(keameans,centers =n)
+final_result<-cbind(name_total_age,result$cluster)