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

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

Author: chaussep
Date: 2010-01-08 21:31:19 +0100 (Fri, 08 Jan 2010)
New Revision: 19

Modified:
   pkg/gmm/R/momentEstim.R
Log:
added the possibility to put names on the parameters of gel


Modified: pkg/gmm/R/momentEstim.R
===================================================================
--- pkg/gmm/R/momentEstim.R	2010-01-08 20:01:56 UTC (rev 18)
+++ pkg/gmm/R/momentEstim.R	2010-01-08 20:31:19 UTC (rev 19)
@@ -667,10 +667,10 @@
   z$bwVal <- P$bwVal
   names(z$bwVal) <- "Bandwidth"
  
-  if(is.null(names(P$t0)))
+  if(is.null(names(P$tet0)))
     names(z$coefficients) <- paste("Theta[" ,1:P$k, "]", sep = "")
   else
-    names(z$coefficients) <- names(P$t0)
+    names(z$coefficients) <- names(P$tet0)
 
   colnames(z$gt) <- paste("gt[",1:ncol(z$gt),"]", sep = "")
   names(z$lambda) <- paste("Lambda[",1:ncol(z$gt),"]", sep = "")