diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..5b6a065
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
diff --git a/README.md b/README.md
index 32d61dd..3824265 100644
--- a/README.md
+++ b/README.md
@@ -2,6 +2,8 @@
 
 ##Instructions
 
+1111
+
 This week you will be acquiring and submitting some work through Github. To do this you will need to have RStudio & Github connected. If you have not already done this, please follow the instructions [here](http://www.molecularecologist.com/2013/11/using-github-with-r-and-rstudio/) (Mac) or [here](http://www.r-bloggers.com/rstudio-and-github/) (Windows). This can be a non-trivial step, so save some time to do it. If you are having trouble either Tweet your anguish or email me directly. (The crucial step is that in RStudio under Tools -> Global Options -> Git/SVN you must fill in the both the boxes: Git executable and SVN executable with the locations of both of those files.)
 
 Once you have set up this connection we will be using an R package named Swirl, Swirl is an interactive R lesson generator. Your task will be to do an introductory lesson in R and pull the data back to the Github repository.
diff --git a/class5.Rproj b/class5.Rproj
new file mode 100644
index 0000000..04bc087
--- /dev/null
+++ b/class5.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Yes
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
diff --git a/lesson1.csv b/lesson1.csv
new file mode 100644
index 0000000..2181f3b
--- /dev/null
+++ b/lesson1.csv
@@ -0,0 +1,25 @@
+"answer","id"
+"install.packages(swirl)","KarenZhuqianZhou"
+"library(swirl)","KarenZhuqianZhou"
+"swirl()","KarenZhuqianZhou"
+"5 + 7","KarenZhuqianZhou"
+"x<-5+7","KarenZhuqianZhou"
+"x","KarenZhuqianZhou"
+"y<-x-3","KarenZhuqianZhou"
+"y","KarenZhuqianZhou"
+"z<-c(1.1,9,3.14)","KarenZhuqianZhou"
+"?c","KarenZhuqianZhou"
+"z","KarenZhuqianZhou"
+"c(z,555,z)","KarenZhuqianZhou"
+"z*2+100","KarenZhuqianZhou"
+"my_sqrt<-sqrt(z-1)","KarenZhuqianZhou"
+"my_sqrt","KarenZhuqianZhou"
+"my_div<-z/my_sqrt","KarenZhuqianZhou"
+"my_div","KarenZhuqianZhou"
+"a<-c(1,2,3,4)+c(0,10)","KarenZhuqianZhou"
+"a","KarenZhuqianZhou"
+"c(1,2,3,4)+c(0,10)","KarenZhuqianZhou"
+"c(1,2,3,4)+c(0,10,100)","KarenZhuqianZhou"
+"z*2+1000","KarenZhuqianZhou"
+"my_div","KarenZhuqianZhou"
+"H <-read.table(~/.rstudio-desktop/history_database, sep=:, fill=T, stringsAsFactors=F)","KarenZhuqianZhou"