diff --git a/07_final_assignment/baboonSimulation.R b/07_final_assignment/baboonSimulation.R
index 2fc52a0..70d6e4a 100644
--- a/07_final_assignment/baboonSimulation.R
+++ b/07_final_assignment/baboonSimulation.R
@@ -137,7 +137,8 @@
     expect_equal(length(stimuli$StimulusType[stimuli$StimulusType == "LearnedWord"]), 102)
 })
 
-MakeMonkey <- function(cueset, outcomeset=c("Word", "Nonword"), alpha=sqrt(0.001), beta=sqrt(0.001), lambda=1.0){
+MakeMonkey <- function(cueset, outcomeset=c("Word", "Nonword"),
+                       alpha=sqrt(0.001), beta=sqrt(0.001), lambda=1.0){
     weights <- matrix(0, length(cueset), length(outcomeset))
     rownames(weights) <- cueset
     colnames(weights) <- outcomeset