[Splm-commits] r129 - pkg/R

[noreply at r-forge.r-project.org]

Author: gpiras
Date: 2011-09-01 19:39:31 +0200 (Thu, 01 Sep 2011)
New Revision: 129

Modified:
   pkg/R/likelihoodsFE.R
Log:
Log change - fixed bugs in sarar ML FE

Modified: pkg/R/likelihoodsFE.R
===================================================================
--- pkg/R/likelihoodsFE.R	2011-08-31 17:12:05 UTC (rev 128)
+++ pkg/R/likelihoodsFE.R	2011-09-01 17:39:31 UTC (rev 129)
@@ -193,7 +193,7 @@
     s2 <- SSE/n
     ldet1 <- do_ldet(rho, env, which = 1)
     ldet2 <- do_ldet(lambda, env, which = 2)
-    ret <- (T * ldet1 + T * ldet2 - ((n/2) * log(2 * pi)) - (n/2) * log(s2) - 
+    ret <- (T * ldet1 + T * ldet2 - ((n*T/2) * log(2 * pi)) - (n*T/2) * log(s2) - 
         (1/(2 * s2)) * SSE)
     if (get("verbose", envir = env)) 
         cat("rho:", rho, "lambda:", lambda, " function:", ret,