[Splm-commits] r179 - pkg/R

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

Author: gpiras
Date: 2013-11-07 00:12:32 +0100 (Thu, 07 Nov 2013)
New Revision: 179

Modified:
   pkg/R/spgm.R
Log:
result1

Modified: pkg/R/spgm.R
===================================================================
--- pkg/R/spgm.R	2013-11-06 18:11:28 UTC (rev 178)
+++ pkg/R/spgm.R	2013-11-06 23:12:32 UTC (rev 179)
@@ -260,7 +260,7 @@
     wres <- as.matrix(Ws %*% res)
     r.init <- solve(crossprod(res),crossprod(res,wres))
 if(is.null(endog))	v.init <- crossprod(res)/NT	
-else    	        v.init <- result1$sigmav
+else    	        v.init <- result$sigmav
 	pars <- c(r.init, v.init)	
 }