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

new update

Browse Source
This commit is contained in:
ayousry42
2021-12-19 22:47:20 +02:00
parent 43432f279c
commit b127e062c2
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Data.R
View File

@@ -26,8 +26,8 @@ barplot(CompCashCredit,names.arg = c('Cash','Credit'),horiz = FALSE,col = c(rgb(
#Compare between ages and their total spent (Youssri) #Compare between ages and their total spent (Youssri)
ages <- cbind(grocery_entries[6] , grocery_entries[3]) age <- cbind(grocery_entries[6] , grocery_entries[3])
sum_ages <- aggregate(total ~ age,ages,sum) sum_ages <- aggregate(total ~ age,age,sum)
plot(sum_ages) plot(sum_ages)
@@ -36,5 +36,9 @@ plot(sum_ages)
#kmeans --Yousri
name_total_age<-cbind(grocery_entries[5],grocery_entries[3],grocery_entries[6])
#x<-readline()
keameans<-cbind(grocery_entries[3],grocery_entries[6])
result<-kmeans(keameans,centers = 10)
final_result<-cbind(name_total_age,result$cluster)