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

Update yousri

Browse Source
This commit is contained in:
ayousry42
2021-12-19 21:39:43 +02:00
parent 4d2a9e69c4
commit 900eeb3ce1
1 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Data.R
View File

@@ -1,14 +1,23 @@
library(readxl) # Installing Packages
#grocery_entries <- read.csv(file.choose()) install.packages("ClusterR")
grocery_entries <- read_excel("~/College/Data Science/Project/grc.xlsx") install.packages("cluster")
# Loading package
library(ClusterR)
library(cluster)
grocery_entries <- read.csv(file.choose())
#grocery_entries <- read_excel("~/College/Data Science/Project/grc.xlsx")
cash_credit <- cbind(grocery_entries[3], grocery_entries[8]) cash_credit <- cbind(grocery_entries[3], grocery_entries[8])
# #
#sum_cash <-sum(cash_credit[which(cash_credit$paymentType=='Cash'),1]) #sum_cash <-sum(cash_credit[which(cash_credit$paymentType=='Cash'),1])
#sum_credit <-sum(cash_credit[which(cash_credit$paymentType=='Credit'),1]) #sum_credit <-sum(cash_credit[which(cash_credit$paymentType=='Credit'),1])
CompCashCredit <- c(sum_cash,sum_credit) #CompCashCredit <- c(sum_cash,sum_credit)
#please visualise the data I am lazy - Sewelam #please visualise the data I am lazy - Sewelam
ages <- cbind(grocery_entries[6] , grocery_entries[3]) ages <- cbind(grocery_entries[6] , grocery_entries[3])
sum_ages <- aggregate(total ~ age,ages,sum) sum_ages <- aggregate(total ~ age,ages,sum)
plot(sum_ages)
#First Github Commitment! 23 #First Github Commitment! 23
#Don't be lazy swelam --Yousri #Don't be lazy swelam --Yousri
table()