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

Formatted the code

Browse Source
This commit is contained in:
LinlyBoi
2021-12-25 13:32:53 +02:00
parent 96ee3c776f
commit 2d6fb5ef64
1 changed files with 8 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Data.R
View File

@@ -47,24 +47,18 @@ 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])
n<-as.numeric(readline("Enter number of clusters: "))
x<-readline("Enter number of clusters: ")
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]) keameans<-cbind(grocery_entries[3],grocery_entries[6])
result<-kmeans(keameans,centers =n) result<-kmeans(keameans,centers =n)
final_result<-cbind(name_total_age,result$cluster) final_result<-cbind(name_total_age,result$cluster)
#Association Rules --Sewelam
clean_data <- grocery_entries[,-5]
minsup <- as.numeric(readline("Enter minimum support: "))
minconf <- as.numeric(readline("Enter minimum confidence: "))
asoc_rules <- apriori(clean_data,parameter = list(supp = minsup,conf = minconf))
asociation_rules <- inspect(asoc_rules)
write.csv(as(asoc_rules,"data.frame"),file = "Output.csv")