[Splm-commits] r181 - pkg/R

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

Author: gpiras
Date: 2013-12-06 14:43:44 +0100 (Fri, 06 Dec 2013)
New Revision: 181

Modified:
   pkg/R/likelihoodsFE.R
   pkg/R/spfeml.R
Log:
no changes

Modified: pkg/R/likelihoodsFE.R
===================================================================
--- pkg/R/likelihoodsFE.R	2013-11-23 22:56:34 UTC (rev 180)
+++ pkg/R/likelihoodsFE.R	2013-12-06 13:43:44 UTC (rev 181)
@@ -73,6 +73,7 @@
 if(LeeYu && effects == "tpfe") s2 <- (n/(n-1)) * as.numeric(s2)	
 
 	betas <- coefficients(lm.lag)
+	 # betas <- b0 - lambda*b1
 	names(betas) <- colnames(xt)
 	coefs <- c(lambda, betas)
 
@@ -188,7 +189,7 @@
 
 }
  
-    	return<-list(coeff = betas, lambda = lambda, s2 = s2, rest.se = rest.se, lambda.se = lambda.se, sig.se = sig.se, asyvar1 = asyvar1)
+    	return<-list(coeff = betas, lambda = lambda, s2 = s2, rest.se = rest.se, lambda.se = lambda.se, sig.se = sig.se, asyvar1 = asyvar1,  residuals = r)
 } 
 
 
@@ -412,7 +413,7 @@
 
 }
 
-	return<-list(coeff=betas, rho = rho, s2 = s2, rest.se = rest.se, rho.se = rho.se, s2.se = s2.se, asyvar1=asyvar1)
+	return<-list(coeff=betas, rho = rho, s2 = s2, rest.se = rest.se, rho.se = rho.se, s2.se = s2.se, asyvar1=asyvar1, residuals = r)
 }
 
 
@@ -804,7 +805,7 @@
             	}
 
 
-return<-list(coeff = betas, lambda = lambda, rho = rho, s2 = s2, asyvar1 = asyvar1, lambda.se = lambda.se, rho.se = rho.se, s2.se = s2.se)	
+return<-list(coeff = betas, lambda = lambda, rho = rho, s2 = s2, asyvar1 = asyvar1, lambda.se = lambda.se, rho.se = rho.se, s2.se = s2.se, residuals = r)	
 	}
 
 f_sacpanel_hess <- function (coefs, env, LeeYu = LeeYu, effects = effects) 

Modified: pkg/R/spfeml.R
===================================================================
--- pkg/R/spfeml.R	2013-11-23 22:56:34 UTC (rev 180)
+++ pkg/R/spfeml.R	2013-12-06 13:43:44 UTC (rev 181)
@@ -378,6 +378,7 @@
 	N.vars<-res.eff$N.vars
 
 
+
 	nam.rows <- dimnames(x)[[1]]