......
Hello World
This commit is contained in:
6
.Rproj.user/ECAADC40/sources/prop/28FC61B9
Normal file
6
.Rproj.user/ECAADC40/sources/prop/28FC61B9
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
{
|
||||||
|
"source_window_id": "",
|
||||||
|
"Source": "Source",
|
||||||
|
"cursorPosition": "13,20",
|
||||||
|
"scrollLine": "0"
|
||||||
|
}
|
||||||
1
.Rproj.user/ECAADC40/sources/prop/INDEX
Normal file
1
.Rproj.user/ECAADC40/sources/prop/INDEX
Normal file
@@ -0,0 +1 @@
|
|||||||
|
~%2FGitHub%2FData-Science-Project%2FData.R="28FC61B9"
|
||||||
26
.Rproj.user/ECAADC40/sources/s-910727FC/F34ED0EB
Normal file
26
.Rproj.user/ECAADC40/sources/s-910727FC/F34ED0EB
Normal file
@@ -0,0 +1,26 @@
|
|||||||
|
{
|
||||||
|
"id": "F34ED0EB",
|
||||||
|
"path": "~/GitHub/Data-Science-Project/Data.R",
|
||||||
|
"project_path": "Data.R",
|
||||||
|
"type": "r_source",
|
||||||
|
"hash": "0",
|
||||||
|
"contents": "",
|
||||||
|
"dirty": false,
|
||||||
|
"created": 1639857235111.0,
|
||||||
|
"source_on_save": false,
|
||||||
|
"relative_order": 1,
|
||||||
|
"properties": {
|
||||||
|
"source_window_id": "",
|
||||||
|
"Source": "Source",
|
||||||
|
"cursorPosition": "13,20",
|
||||||
|
"scrollLine": "0"
|
||||||
|
},
|
||||||
|
"folds": "",
|
||||||
|
"lastKnownWriteTime": 1639857261,
|
||||||
|
"encoding": "UTF-8",
|
||||||
|
"collab_server": "",
|
||||||
|
"source_window": "",
|
||||||
|
"last_content_update": 1639857261469,
|
||||||
|
"read_only": false,
|
||||||
|
"read_only_alternatives": []
|
||||||
|
}
|
||||||
14
.Rproj.user/ECAADC40/sources/s-910727FC/F34ED0EB-contents
Normal file
14
.Rproj.user/ECAADC40/sources/s-910727FC/F34ED0EB-contents
Normal file
@@ -0,0 +1,14 @@
|
|||||||
|
library(readxl)
|
||||||
|
#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])
|
||||||
|
#
|
||||||
|
#sum_cash <-sum(cash_credit[which(cash_credit$paymentType=='Cash'),1])
|
||||||
|
#sum_credit <-sum(cash_credit[which(cash_credit$paymentType=='Credit'),1])
|
||||||
|
|
||||||
|
CompCashCredit <- c(sum_cash,sum_credit)
|
||||||
|
#please visualise the data I am lazy - Sewelam
|
||||||
|
ages <- cbind(grocery_entries[6] , grocery_entries[3])
|
||||||
|
sum_ages <- aggregate(total ~ age,ages,sum)
|
||||||
|
#First Github Commitment! 23
|
||||||
|
#Yousri drinking tea
|
||||||
0
.Rproj.user/ECAADC40/sources/s-910727FC/lock_file
Normal file
0
.Rproj.user/ECAADC40/sources/s-910727FC/lock_file
Normal file
0
.Rproj.user/shared/notebooks/patch-chunk-names
Normal file
0
.Rproj.user/shared/notebooks/patch-chunk-names
Normal file
1
Data.R
1
Data.R
@@ -11,3 +11,4 @@ CompCashCredit <- c(sum_cash,sum_credit)
|
|||||||
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)
|
||||||
#First Github Commitment! 23
|
#First Github Commitment! 23
|
||||||
|
#Yousri drinking tea
|
||||||
Reference in New Issue
Block a user