more eq numbers

Steve Walker · Steve Walker · commit 318d3ca1ab00 · 2014-05-28T17:36:24.000-04:00
diff --git a/R/JSS.R b/R/JSS.R
@@ -62,7 +62,8 @@ plsJSS <- function(X, y, Zt, Lambdat, mapping, weights,
                                         # by placing the new values of theta
                                         # in the appropriate positions
             Lambdat@x[] <<- mapping(theta)
-                                        # update random-effects Cholesky factor
+                                        # update random-effects
+                                        # Cholesky factor (eqn. 18)
             L <<- update(L, Lambdat %*% ZtW, mult = 1)
             
             ##################################################
