[Depmix-commits] r133 - trunk/R

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

Author: maarten
Date: 2008-05-21 10:47:49 +0200 (Wed, 21 May 2008)
New Revision: 133

Modified:
   trunk/R/responseGLMMULTINOM.R
Log:
- fixed new error in GLMMULTINOM.R 

Modified: trunk/R/responseGLMMULTINOM.R
===================================================================
--- trunk/R/responseGLMMULTINOM.R	2008-05-21 00:04:29 UTC (rev 132)
+++ trunk/R/responseGLMMULTINOM.R	2008-05-21 08:47:49 UTC (rev 133)
@@ -5,7 +5,7 @@
 	function(object,w) {
 		pars <- object at parameters
 		base <- object at family$base # delete me
-		#y <- object at y[,-base]
+		y <- object at y
 		x <- object at x
 		mask <- matrix(1,nrow=nrow(pars$coefficients),ncol=ncol(pars$coefficients))
 		mask[,base] <- 0 # fix base category coefficients to 0