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/Class5.Rproj b/Class5.Rproj
new file mode 100644
index 0000000..8e3c2eb
--- /dev/null
+++ b/Class5.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+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..55f9102
--- /dev/null
+++ b/lesson1.csv
@@ -0,0 +1,65 @@
+"time","answer","id"
+1473376744512,"demo()","Jonathan Stelman"
+1473714943177,"demo()","Jonathan Stelman"
+1473784996245,"rnoem(10, mean=10,sd=2)","Jonathan Stelman"
+1473785002474,"rnorm(10, mean=10,sd=2)","Jonathan Stelman"
+1473785327061,"rnorm(20, mean=10,sd=3)","Jonathan Stelman"
+1474556861221,"install.packages(swirl)","Jonathan Stelman"
+1474556913253,"library(swirl)","Jonathan Stelman"
+1474556924300,"swirl()","Jonathan Stelman"
+1474557247527,"5 + 7","Jonathan Stelman"
+1474557294284,"x <- 5+7","Jonathan Stelman"
+1474557308849,"x","Jonathan Stelman"
+1474557318016,"y<-x-3","Jonathan Stelman"
+1474557321379,"y","Jonathan Stelman"
+1474557374642,"z<-c(1.1,9,3.14)","Jonathan Stelman"
+1474557389064,"?c","Jonathan Stelman"
+1474557397459,"z","Jonathan Stelman"
+1474557419483,"c(z, 555, z)","Jonathan Stelman"
+1474557438299,"z*2+100","Jonathan Stelman"
+1474557591297,"my_sqrt<-sqrt(z-1)","Jonathan Stelman"
+1474557633567,"my_sqrt","Jonathan Stelman"
+1474557661040,"my_div<-z/my_sqrt","Jonathan Stelman"
+1474557774127,"my_div","Jonathan Stelman"
+1474558076225,"c(1,2,3,4)+c(0,10)","Jonathan Stelman"
+1474558135402,"c(1,2,3,4)+c(0,10,100)","Jonathan Stelman"
+1474558162171,"z*2+1000","Jonathan Stelman"
+1474558226974,"my_div","Jonathan Stelman"
+1474558600131,"swirl()","Jonathan Stelman"
+1474558649867,"getwd()","Jonathan Stelman"
+1474558658810,"ls()","Jonathan Stelman"
+1474558688798,"x<-9","Jonathan Stelman"
+1474558691544,"ls","Jonathan Stelman"
+1474558696872,"ls()","Jonathan Stelman"
+1474558710589,"list.files()","Jonathan Stelman"
+1474558756277,"?list.files","Jonathan Stelman"
+1474558930305,"args(list.files)","Jonathan Stelman"
+1.474559e+12,"old.dir<-getwd()","Jonathan Stelman"
+1474559035333,"?dir.create","Jonathan Stelman"
+1474559060356,"dir.create()","Jonathan Stelman"
+1474559069559,"dir.create(old.dir)","Jonathan Stelman"
+1474559103700,"dir.create(testdir)","Jonathan Stelman"
+1474559119117,"dir.create(testdir)","Jonathan Stelman"
+1474559161230,"setwd(testdir)","Jonathan Stelman"
+1474559172842,"setwd(testdir)","Jonathan Stelman"
+1474559201962,"file.create(mytest.R)","Jonathan Stelman"
+1474559209382,"ls()","Jonathan Stelman"
+1474559217957,"list.files()","Jonathan Stelman"
+1474559285647,"file.exists(mytest.R)","Jonathan Stelman"
+1474559313859,"file.info(mytest.R)","Jonathan Stelman"
+1474559506918,"file.rename(mytest.R,mytest2.R)","Jonathan Stelman"
+1474559520046,"file.rename(mytest.R,mytest2.R)","Jonathan Stelman"
+1474559562655,"file.copy(mytest2.R,mytest3.R)","Jonathan Stelman"
+1474559597279,"file.path(mytest3.R)","Jonathan Stelman"
+1474559645361,"file.path(folder1,folder2)","Jonathan Stelman"
+1474559669399,"?dir.create","Jonathan Stelman"
+1474559751380,"dir.create(testdir2)","Jonathan Stelman"
+1474559830390,"dir.create(file.path(testdir2,testdir3),recursive = TRUE)","Jonathan Stelman"
+1474559893068,"setwd(old.dir)","Jonathan Stelman"
+1474559931008,"?unlink","Jonathan Stelman"
+1474559961336,"unlink(testdir, recursive = TRUE)","Jonathan Stelman"
+1474560285063,"H <-read.table(~/.rstudio-desktop/history_database, sep=:, fill=T, stringsAsFactors=F)","Jonathan Stelman"
+1474560309838,"names(H) <- c(time, answer)","Jonathan Stelman"
+1474560309840,"H$id <- Jon","Jonathan Stelman"
+1474560309843,"write.csv(H, file = lesson1.csv, row.names = FALSE)","Jonathan Stelman"
+1474560442829,"H <-read.table(~/.rstudio-desktop/history_database, sep=:, fill=T, stringsAsFactors=F)","Jonathan Stelman"