linly/Data-Science-Project
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

kmeans

Browse Source
This commit is contained in:
ayousry42
2021-12-22 12:15:50 +02:00
parent b127e062c2
commit 03908f4309
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Data.R
View File

@@ -5,7 +5,7 @@
# Loading package # Loading package
#library(ClusterR) #library(ClusterR)
library(cluster) #library(cluster)
#Read spreadsheet file #Read spreadsheet file
grocery_entries <- read.csv(file.choose()) grocery_entries <- read.csv(file.choose())
@@ -38,7 +38,7 @@ plot(sum_ages)
#kmeans --Yousri #kmeans --Yousri
name_total_age<-cbind(grocery_entries[5],grocery_entries[3],grocery_entries[6]) 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]) 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) final_result<-cbind(name_total_age,result$cluster)