[Gmm-commits] r15 - pkg/gmm/R

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

Author: chaussep
Date: 2009-12-21 04:44:34 +0100 (Mon, 21 Dec 2009)
New Revision: 15

Modified:
   pkg/gmm/R/momentEstim.R
Log:
reorganizing the codes

Modified: pkg/gmm/R/momentEstim.R
===================================================================
--- pkg/gmm/R/momentEstim.R	2009-12-21 01:15:24 UTC (rev 14)
+++ pkg/gmm/R/momentEstim.R	2009-12-21 03:44:34 UTC (rev 15)
@@ -80,6 +80,7 @@
      z = list(coefficients = res2$par, objective = res2$value, k=k, k2=k2, n=n, q=q, df=df)	
     }
 
+  names(z$coefficients) <- paste("Theta[" ,1:k, "]", sep = "")
   z$x <- P$x
   z$gt <- P$g(z$coefficients, P$x)
   z$gradv <- P$gradv
@@ -310,6 +311,7 @@
     z = list(coefficients = res$par, objective = res$value,k=k, k2=k2, n=n, q=q, df=df)	
     }
 
+  names(z$coefficients) <- paste("Theta[" ,1:k, "]", sep = "")
   z$x <- P$x
   z$gt <- P$g(z$coefficients, P$x)
   z$gradv <- P$gradv
@@ -450,6 +452,7 @@
     z = list(coefficients=res2$par,objective=res2$value, k=k, k2=k2, n=n, q=q, df=df)	
     }
 
+  names(z$coefficients) <- paste("Theta[" ,1:k, "]", sep = "")
   z$x <- P$x
   z$gt <- P$g(z$coefficients, P$x)
   z$gradv <- P$gradv