[Depmix-commits] r229 - trunk/R

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

Author: maarten
Date: 2008-10-20 14:14:40 +0200 (Mon, 20 Oct 2008)
New Revision: 229

Modified:
   trunk/R/responseGLM.R
Log:
- fixed new bug in GLMresponse with starting values
- GLMresponse still needs thorough checking! 

Modified: trunk/R/responseGLM.R
===================================================================
--- trunk/R/responseGLM.R	2008-10-09 23:16:41 UTC (rev 228)
+++ trunk/R/responseGLM.R	2008-10-20 12:14:40 UTC (rev 229)
@@ -80,6 +80,8 @@
   				if(prob) parameters$coefficients[1] <- family$linkfun(pstart[1])
   				else parameters$coefficients[1] <- pstart[1]
   				if(ncol(x)>1) parameters$coefficients[2:ncol(x)] <- pstart[2:ncol(x)]
+  			} else {
+          parameters$coefficients[1:ncol(x)] <- pstart[1:ncol(x)]
   			}
   			if(length(unlist(parameters))>length(parameters$coefficients)) {
   				if(family$family=="gaussian") parameters$sd <- as.numeric(pstart[(length(parameters$coefficients)+1)])