diff --git a/07_final_assignment/baboonSimulation.R b/07_final_assignment/baboonSimulation.R
index 785346f..e1fef8e 100644
--- a/07_final_assignment/baboonSimulation.R
+++ b/07_final_assignment/baboonSimulation.R
@@ -1,5 +1,17 @@
 library(testthat)
 
+monkeydat = data.frame(Monkey=c("DAN", "ART", "CAU", "DOR", "VIO", "ARI"),
+                       NumTrials=c(56689, 50985, 61142, 49608, 43041, 55407),
+                       NumWordsLearned=c(308, 125, 112, 121, 81, 87),
+                       NumNonwordsPresented=c(7832, 7832, 7832, 7832, 7832, 7832),
+                       GeneralAccuracy=c(79.81, 73.41, 72.43, 73.15, 71.55, 71.14),
+                       WordAccuracy=c(80.01, 74.83, 73.15, 79.26, 76.75, 75.38),
+                       NonwordAccuracy=c(79.61, 72.00, 71.72, 67.06, 66.33, 66.90))
+View(monkeydat)
+
+
+
+
 Resample <- function(x){
     x[sample.int(length(x))]
 }