......

Hello World

.Rproj.user/ECAADC40/sources/s-910727FC/F34ED0EB

@@ -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": []
+}

.Rproj.user/ECAADC40/sources/s-910727FC/F34ED0EB-contents

@@ -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