Fix an error on peer_ocu with misplaced parentheses

Author: JaeyeongYang

R/peer_ocu.R

@@ -258,9 +258,9 @@ peer_ocu <- function(data           = "choose",
         mu_p     = c(qnorm(inits_fixed[1]/2), log(inits_fixed[2]), inits_fixed[3]),
         sigma    = c(1.0, 1.0, 1.0),
         rho_p    = rep(qnorm(inits_fixed[1]/2), numSubjs),
-        tau_p    = rep(log(inits_fixed[2]), numSubjs,
-        ocu_p    = rep(inits_fixed[3]), numSubjs)
-)
+        tau_p    = rep(log(inits_fixed[2]), numSubjs),
+        ocu_p    = rep(inits_fixed[3], numSubjs)
+      )
     }
   } else {
     genInitList <- "random"

inst/NEWS

@@ -1,5 +1,6 @@
 Oct 9, 2018 (0.6.1)
 * Solve an issue with built binary files.
+* Fix an error on peer_ocu with misplaced parentheses.
 
 Sep 11, 2018 (0.6.0)
 * Add new tasks (Balloon Analogue Risk Task, Choice under Risk and Ambiguity Task, Probabilistic Selection Task, Risky Decision Task (a.k.a. Happiness task), Wisconsin Card Sorting Task)