[Depmix-commits] r160 - trunk/R

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

Author: maarten
Date: 2008-06-13 16:23:51 +0200 (Fri, 13 Jun 2008)
New Revision: 160

Modified:
   trunk/R/responseGLM.R
Log:
- fixed bug in GLM when response is a 2 column matrix

Modified: trunk/R/responseGLM.R
===================================================================
--- trunk/R/responseGLM.R	2008-06-13 14:21:52 UTC (rev 159)
+++ trunk/R/responseGLM.R	2008-06-13 14:23:51 UTC (rev 160)
@@ -42,7 +42,7 @@
 		},
 		matrix = {
 		  if(ncol(y) == 2) {
-			n <- rowSums(y)
+			n <- as.matrix(rowSums(y))
 			y <- as.matrix(y[,1])
 		  } else {
 			stop("model response not valid for binomial model")