diff --git a/ex7.R b/ex7.R
new file mode 100644
index 0000000..d9c445a
--- /dev/null
+++ b/ex7.R
@@ -0,0 +1,21 @@
+head1 = function(filename, rows) {
+  data = read.table(file = filename, sep= ",", header = TRUE, stringsAsFactors = FALSE)
+  hrows = data[1:rows, ]
+  return(print(h_rows))
+}
+head1("wages.csv", 5)
+
+#Part 2
+
+iris_data <- read.table(file = "iris.csv", sep= ",", header = TRUE, stringsAsFactors = FALSE)
+print(tail(iris_data[, (ncol(iris_data)-1):ncol(iris_data)], 2))
+nrow(iris_data[iris_data$Species == "setosa", ])
+nrow(iris_data[iris_data$Species == "versicolor", ])
+nrow(iris_data[iris_data$Species == "virginica", ])
+iris_data[iris_data$Sepal.Width > 3.5, ]
+
+write.table(x = iris_data[iris_data$Species == "setosa", ], file = "setosa.csv", sep = ",", col.names = TRUE)
+
+mean(iris_data[iris_data$Species == "virginica", ][, "Petal.Length"])
+min(iris_data[iris_data$Species == "virginica", ][, "Petal.Length"])
+max(iris_data[iris_data$Species == "virginica", ][, "Petal.Length"])
\ No newline at end of file