diff --git a/07_final_assignment/baboonSimulation.R b/07_final_assignment/baboonSimulation.R
index b444b69..c3f3fef 100644
--- a/07_final_assignment/baboonSimulation.R
+++ b/07_final_assignment/baboonSimulation.R
@@ -1,13 +1,12 @@
 library(testthat)
 
-monkeydat = data.frame(Monkey=c("DAN", "ART", "CAU", "DOR", "VIO", "ARI"),
+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))]
@@ -51,9 +50,9 @@
                                              c("LearnedWord","NewWord","Nonword")),
                          stringsAsFactors=F)
     
-    result[1:25,] <- RandomPick(data[data$StimulusType=="NewWord",], 1)
-    result[26:50,] <- RandomPick(data[data$StimulusType=="LearnedWord",], 25)
-    result[51:100,] <- RandomPick(data[data$StimulusType=="Nonword",],50)
+    result[1:25,] <- RandomPick(data[data$StimulusType == "NewWord",], 1)
+    result[26:50,] <- RandomPick(data[data$StimulusType == "LearnedWord",], 25)
+    result[51:100,] <- RandomPick(data[data$StimulusType == "Nonword",],50)
 
     result <- result[sample(nrow(result)),]
     rownames(result) <- 1:nrow(result)
@@ -125,7 +124,7 @@
     data$StimulusType[101:200] <- "LearnedWord"
     data$StimulusType[201:300] <- "Nonword"
     count <- BLOCK_SIZE * 2.5
-    
+
     result <- PresentTrials(count,
                             function(word){
                                 "Word"
@@ -169,7 +168,7 @@
     give_weights <- function(){
         return(weights)
     }
-    
+
     list(
         Weights=give_weights,
         Learner=learner
@@ -188,7 +187,7 @@
     monkey$Learner("b_c","Nonword")
     monkey$Learner("a_b","Word")
     monkey$Learner("b_c","Nonword")
-    
+
     print(monkey$Weights())
     print(str(monkey))
     # TODO: MAKE TESTCASES!!