From b97a5b7103914067c60b53a11c240f23083d8772 Mon Sep 17 00:00:00 2001
From: Paul Jeong <donghyunjeong21@gmail.com>
Date: Fri, 5 Nov 2021 01:57:18 -0400
Subject: [PATCH] Assignment submission

---
 .Rhistory       | 29 ++++++++++++++++++++++++++++
 Part2.R         | 26 +++++++++++++++++++++++++
 head_function.R |  7 +++++++
 setosa_Data.csv | 51 +++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 113 insertions(+)
 create mode 100644 .Rhistory
 create mode 100644 Part2.R
 create mode 100644 head_function.R
 create mode 100644 setosa_Data.csv

diff --git a/.Rhistory b/.Rhistory
new file mode 100644
index 0000000..2cfa5a5
--- /dev/null
+++ b/.Rhistory
@@ -0,0 +1,29 @@
+?matrix
+setwd("~/")
+source("~/.active-rstudio-document")
+View(data)
+View(data)
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+setwd("~/My Files/Notes/NDU/Coursework/Biocomputing/Biocomp_tutorial9")
+print(5)
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+View(setosa_data)
+View(setosa_data)
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/.active-rstudio-document")
+source("~/My Files/Notes/NDU/Coursework/Biocomputing/Biocomp_tutorial9/Part2.R")
+data$Petal.Length[(data$Species == 'virginica')]
+max(data$Petal.Length[(data$Species == 'virginica')])
+source("~/My Files/Notes/NDU/Coursework/Biocomputing/Biocomp_tutorial9/Part2.R")
diff --git a/Part2.R b/Part2.R
new file mode 100644
index 0000000..0dfd27b
--- /dev/null
+++ b/Part2.R
@@ -0,0 +1,26 @@
+data <- read.csv(file='iris.csv')
+
+row <- nrow(data)
+col <- ncol(data)
+
+print('Last two rows')
+print(data[(row-1):row,])
+print('Last two col')
+print(data[,(col-1):col])
+
+print('Number of each species')
+print(table(data[,col]))
+
+print('Data with sepal width of greater than 3.5')
+print(data[(data$Sepal.Width > 3.5),])
+
+#writing the setosa data to a separate data file called 'setosa_Data.csv'
+setosa_data <- data[(data$Species == 'setosa'),]
+write.csv(setosa_data, 'setosa_Data.csv')
+
+print('Mean Petal length')
+print(mean(data$Petal.Length[(data$Species == 'virginica')]))
+print('Max Petal Length')
+print(max(data$Petal.Length[(data$Species == 'virginica')]))
+print('Min Petal Length')
+print(min(data$Petal.Length[(data$Species == 'virginica')]))
diff --git a/head_function.R b/head_function.R
new file mode 100644
index 0000000..11ec0ee
--- /dev/null
+++ b/head_function.R
@@ -0,0 +1,7 @@
+data <- read.csv(file = 'filename.csv', header=FALSE)
+num_row <- 5
+
+for (i in c(1:num_row)){
+  print(data[i,])
+}
+
diff --git a/setosa_Data.csv b/setosa_Data.csv
new file mode 100644
index 0000000..1f67a2f
--- /dev/null
+++ b/setosa_Data.csv
@@ -0,0 +1,51 @@
+"","Sepal.Length","Sepal.Width","Petal.Length","Petal.Width","Species"
+"1",5.1,3.5,1.4,0.2,"setosa"
+"2",4.9,3,1.4,0.2,"setosa"
+"3",4.7,3.2,1.3,0.2,"setosa"
+"4",4.6,3.1,1.5,0.2,"setosa"
+"5",5,3.6,1.4,0.2,"setosa"
+"6",5.4,3.9,1.7,0.4,"setosa"
+"7",4.6,3.4,1.4,0.3,"setosa"
+"8",5,3.4,1.5,0.2,"setosa"
+"9",4.4,2.9,1.4,0.2,"setosa"
+"10",4.9,3.1,1.5,0.1,"setosa"
+"11",5.4,3.7,1.5,0.2,"setosa"
+"12",4.8,3.4,1.6,0.2,"setosa"
+"13",4.8,3,1.4,0.1,"setosa"
+"14",4.3,3,1.1,0.1,"setosa"
+"15",5.8,4,1.2,0.2,"setosa"
+"16",5.7,4.4,1.5,0.4,"setosa"
+"17",5.4,3.9,1.3,0.4,"setosa"
+"18",5.1,3.5,1.4,0.3,"setosa"
+"19",5.7,3.8,1.7,0.3,"setosa"
+"20",5.1,3.8,1.5,0.3,"setosa"
+"21",5.4,3.4,1.7,0.2,"setosa"
+"22",5.1,3.7,1.5,0.4,"setosa"
+"23",4.6,3.6,1,0.2,"setosa"
+"24",5.1,3.3,1.7,0.5,"setosa"
+"25",4.8,3.4,1.9,0.2,"setosa"
+"26",5,3,1.6,0.2,"setosa"
+"27",5,3.4,1.6,0.4,"setosa"
+"28",5.2,3.5,1.5,0.2,"setosa"
+"29",5.2,3.4,1.4,0.2,"setosa"
+"30",4.7,3.2,1.6,0.2,"setosa"
+"31",4.8,3.1,1.6,0.2,"setosa"
+"32",5.4,3.4,1.5,0.4,"setosa"
+"33",5.2,4.1,1.5,0.1,"setosa"
+"34",5.5,4.2,1.4,0.2,"setosa"
+"35",4.9,3.1,1.5,0.2,"setosa"
+"36",5,3.2,1.2,0.2,"setosa"
+"37",5.5,3.5,1.3,0.2,"setosa"
+"38",4.9,3.6,1.4,0.1,"setosa"
+"39",4.4,3,1.3,0.2,"setosa"
+"40",5.1,3.4,1.5,0.2,"setosa"
+"41",5,3.5,1.3,0.3,"setosa"
+"42",4.5,2.3,1.3,0.3,"setosa"
+"43",4.4,3.2,1.3,0.2,"setosa"
+"44",5,3.5,1.6,0.6,"setosa"
+"45",5.1,3.8,1.9,0.4,"setosa"
+"46",4.8,3,1.4,0.3,"setosa"
+"47",5.1,3.8,1.6,0.2,"setosa"
+"48",4.6,3.2,1.4,0.2,"setosa"
+"49",5.3,3.7,1.5,0.2,"setosa"
+"50",5,3.3,1.4,0.2,"setosa"