From cbb58df9f0d9cffda7fe620ef2fe1fe33d290d2d Mon Sep 17 00:00:00 2001
From: Megan Schmidt <mschmi26@nd.edu>
Date: Sat, 6 Nov 2021 17:20:03 -0400
Subject: [PATCH] Finish

---
 Tutorial7.R | 24 ++++++++++++++++++++++++
 setosa.csv  | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 75 insertions(+)
 create mode 100644 Tutorial7.R
 create mode 100644 setosa.csv

diff --git a/Tutorial7.R b/Tutorial7.R
new file mode 100644
index 0000000..06427ae
--- /dev/null
+++ b/Tutorial7.R
@@ -0,0 +1,24 @@
+#Question 1
+setwd("C:/Users/megan/Desktop/shell-lesson-data/shell-lesson-data")
+wage <- read.csv(file="wages.csv", header = TRUE, stringsAsFactors = FALSE)
+#number of lines to be returned from the file
+num <- 15
+#variable with the file to return lines from
+topOfFile <- wage[1:num,]
+topOfFile
+
+#Question 2
+var <- read.csv(file='iris.csv', header = TRUE, stringsAsFactors = FALSE)
+var
+#last two rows of the last two columns
+var[149:150,4:5]
+#number of observations for each species
+table(var$Species)
+#rows with Sepal Width > 3.5
+var[var$Sepal.Width > 3.5,]
+#Add all data on setosa species into a new file
+x <- var[var$Species=='setosa',]
+write.csv(x,file = 'setosa.csv', row.names = FALSE, col.names = TRUE)
+#find mean. medium and mode of petal length for virginica
+vir <- var[var$Species=='virginica',]
+summary(vir$Petal.Length)
diff --git a/setosa.csv b/setosa.csv
new file mode 100644
index 0000000..2f03ff3
--- /dev/null
+++ b/setosa.csv
@@ -0,0 +1,51 @@
+"Sepal.Length","Sepal.Width","Petal.Length","Petal.Width","Species"
+5.1,3.5,1.4,0.2,"setosa"
+4.9,3,1.4,0.2,"setosa"
+4.7,3.2,1.3,0.2,"setosa"
+4.6,3.1,1.5,0.2,"setosa"
+5,3.6,1.4,0.2,"setosa"
+5.4,3.9,1.7,0.4,"setosa"
+4.6,3.4,1.4,0.3,"setosa"
+5,3.4,1.5,0.2,"setosa"
+4.4,2.9,1.4,0.2,"setosa"
+4.9,3.1,1.5,0.1,"setosa"
+5.4,3.7,1.5,0.2,"setosa"
+4.8,3.4,1.6,0.2,"setosa"
+4.8,3,1.4,0.1,"setosa"
+4.3,3,1.1,0.1,"setosa"
+5.8,4,1.2,0.2,"setosa"
+5.7,4.4,1.5,0.4,"setosa"
+5.4,3.9,1.3,0.4,"setosa"
+5.1,3.5,1.4,0.3,"setosa"
+5.7,3.8,1.7,0.3,"setosa"
+5.1,3.8,1.5,0.3,"setosa"
+5.4,3.4,1.7,0.2,"setosa"
+5.1,3.7,1.5,0.4,"setosa"
+4.6,3.6,1,0.2,"setosa"
+5.1,3.3,1.7,0.5,"setosa"
+4.8,3.4,1.9,0.2,"setosa"
+5,3,1.6,0.2,"setosa"
+5,3.4,1.6,0.4,"setosa"
+5.2,3.5,1.5,0.2,"setosa"
+5.2,3.4,1.4,0.2,"setosa"
+4.7,3.2,1.6,0.2,"setosa"
+4.8,3.1,1.6,0.2,"setosa"
+5.4,3.4,1.5,0.4,"setosa"
+5.2,4.1,1.5,0.1,"setosa"
+5.5,4.2,1.4,0.2,"setosa"
+4.9,3.1,1.5,0.2,"setosa"
+5,3.2,1.2,0.2,"setosa"
+5.5,3.5,1.3,0.2,"setosa"
+4.9,3.6,1.4,0.1,"setosa"
+4.4,3,1.3,0.2,"setosa"
+5.1,3.4,1.5,0.2,"setosa"
+5,3.5,1.3,0.3,"setosa"
+4.5,2.3,1.3,0.3,"setosa"
+4.4,3.2,1.3,0.2,"setosa"
+5,3.5,1.6,0.6,"setosa"
+5.1,3.8,1.9,0.4,"setosa"
+4.8,3,1.4,0.3,"setosa"
+5.1,3.8,1.6,0.2,"setosa"
+4.6,3.2,1.4,0.2,"setosa"
+5.3,3.7,1.5,0.2,"setosa"
+5,3.3,1.4,0.2,"setosa"