diff --git a/.RData b/.RData
new file mode 100644
index 0000000..1c4984d
Binary files /dev/null and b/.RData differ
diff --git a/Rscript7.R b/Rscript7.R
new file mode 100644
index 0000000..dd6c0f4
--- /dev/null
+++ b/Rscript7.R
@@ -0,0 +1,27 @@
+#Exercise7
+# Problem 1
+data=read.table(file="wages.csv",header=TRUE,sep=",")
+# how to get variable for number of lines? 
+lines=5
+data[1:lines,]
+
+#Problem 2
+data2=read.table(file="iris.csv",header=TRUE,sep=",")
+# print last 2 rows in last 2 columns
+lastrows<-tail(data2,n=2)
+lastrowsandcolumns<-lastrows[,4:5]
+# what is number of observations for each species?
+unique(data2$Species)
+sum(data2$Species=="setosa")
+sum(data2$Species=="versicolor")
+sum(data2$Species=="virginica")
+# get rows with Sepal.Width > 3.5
+sepalwidth<-data2[data2$Sepal.Width>3.5,]
+# write data for species setosa to comma-delimited file named "setosa.csv"
+setosa=data2[data2$Species=="setosa",]
+write.table(x=setosa,file="setosa.csv",row.names=FALSE,col.names=TRUE,sep=",")
+# Calculate mean, minimum, and max of Petal.Length for obs from virginica
+virginica=data2[data2[,5]=="virginica",]
+max(virginica$Petal.Length)
+min(virginica$Petal.Length)
+mean(virginica$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"