From 03908f43091316375e567b8945ca379ddf670d9e Mon Sep 17 00:00:00 2001
From: ayousry42 <ayousry42@gmail.com>
Date: Wed, 22 Dec 2021 12:15:50 +0200
Subject: [PATCH] kmeans

---
 Data.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Data.R b/Data.R
index a7e8307..a2aa6c4 100644
--- a/Data.R
+++ b/Data.R
@@ -5,7 +5,7 @@
 
 # Loading package
 #library(ClusterR)
-library(cluster)
+#library(cluster)
 
 #Read spreadsheet file
 grocery_entries <- read.csv(file.choose())
@@ -38,7 +38,7 @@ plot(sum_ages)
 
 #kmeans --Yousri
 name_total_age<-cbind(grocery_entries[5],grocery_entries[3],grocery_entries[6])
-#x<-readline()
+n<-as.numeric(readline("Enter number of clusters"))
 keameans<-cbind(grocery_entries[3],grocery_entries[6])
-result<-kmeans(keameans,centers = 10)
+result<-kmeans(keameans,centers =n)
 final_result<-cbind(name_total_age,result$cluster)
\ No newline at end of file