diff --git a/Tutorial_9_Nicholls.Rmd b/Tutorial_9_Nicholls.Rmd
new file mode 100644
index 0000000..1190589
--- /dev/null
+++ b/Tutorial_9_Nicholls.Rmd
@@ -0,0 +1,50 @@
+---
+title: "Tutorial_7_Nicholls"
+author: "Sarah Nicholls"
+date: "10/29/2021"
+output: html_document
+---
+
+```{r packages}
+library(tidyverse)
+library(dplyr)
+```
+
+## Tutorial 7
+
+#Problem 1
+```{r head}
+Sarah_head_function <- function(df,n){
+    print(df[1:n,])
+}
+
+Sarah_head_function(iris,5)
+```
+
+#Problem 2
+
+
+```{r pressure, echo=FALSE}
+#1
+setwd("/Users/sarahnicholls/Desktop/Biocomp_tutorial9")
+iris <- read.csv("iris.csv")
+#2
+#last two rows
+print(tail(iris, n=2))
+#last two columns
+print(iris[(ncol(iris)-1):ncol(iris)])
+#3
+iris %>%
+  filter(Sepal.Width > 3.5)
+#4 
+setosa <- iris %>%
+  filter(Species == "setosa")
+write.csv(setosa,"setosa.csv")
+#5
+virginica <- iris %>%
+  filter(Species == "virginica")
+mean(virginica$Petal.Length)
+min(virginica$Petal.Length)
+max(virginica$Petal.Length)
+```
+
diff --git a/setosa.csv b/setosa.csv
new file mode 100644
index 0000000..1f67a2f
--- /dev/null
+++ b/setosa.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"