diff --git a/part1.R b/part1.R
new file mode 100644
index 0000000..c727c08
--- /dev/null
+++ b/part1.R
@@ -0,0 +1,11 @@
+rm(list=ls())
+
+file_name <- "testfile.txt"
+num_lines <- 5
+
+# using indexes
+inputFile <- readLines(file_name)
+print(inputFile[1:num_lines])
+
+# or
+# writeLines(readLines(file_name, num_lines))
\ No newline at end of file
diff --git a/part2.R b/part2.R
new file mode 100644
index 0000000..b12b817
--- /dev/null
+++ b/part2.R
@@ -0,0 +1,25 @@
+rm(list=ls())
+
+# read csv file
+iris_vals <- read.table("iris.csv",header=TRUE,sep=",", stringsAsFactors=FALSE)
+
+# print last 2 rows of last 2 cols
+last2_row <- tail(iris_vals, n=2)
+colnum <- ncol(last2_row)
+last2_rowcol <- last2_row[,(colnum-1):colnum]
+print(last2_rowcol)
+
+# number of observations for each species
+table(iris_vals[,5])
+
+# get rows with Width > 3.5
+width_gt <- iris_vals[iris_vals[,2] > 3.5,]
+
+# write data for species setosa to file
+setosa <- iris_vals[iris_vals[,5] == "setosa",]
+write.table(setosa, "setosa.csv",row.names=FALSE,sep=",", col.name=TRUE)
+
+# calc mean, min, max length for virginica
+mean_len <- mean(iris_vals[iris_vals[,5]=="virginica",3])
+min_len <- min(iris_vals[iris_vals[,5]=="virginica",3])
+max_len <- max(iris_vals[iris_vals[,5]=="virginica",3])
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"
diff --git a/testfile.txt b/testfile.txt
new file mode 100644
index 0000000..39b3a96
--- /dev/null
+++ b/testfile.txt
@@ -0,0 +1,21 @@
+line 1
+line 2
+line 3
+line 4
+line 5
+line 6
+line 7
+line 8
+line 9
+line 10
+line 11
+line 12
+line 13
+line 14
+line 15
+line 16
+line 17
+line 18
+line 19
+line 20
+line 21