[Depmix-commits] r181 - trunk/R

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

Author: maarten
Date: 2008-06-24 15:11:04 +0200 (Tue, 24 Jun 2008)
New Revision: 181

Modified:
   trunk/R/responseGLM.R
Log:
changed fit for GLM to be in line with others in the package (used if(missing(w)) w <- NULL rather than default w=NULL

Modified: trunk/R/responseGLM.R
===================================================================
--- trunk/R/responseGLM.R	2008-06-24 13:09:15 UTC (rev 180)
+++ trunk/R/responseGLM.R	2008-06-24 13:11:04 UTC (rev 181)
@@ -178,7 +178,8 @@
 # returns: (fitted) response with (new) estimates of parameters
 
 setMethod("fit","GLMresponse",
-	function(object,w=NULL) {
+	function(object,w) {
+    if(missing(w)) w <- NULL
 		pars <- object at parameters
 		fit <- glm.fit(x=object at x,y=object at y,weights=w,family=object at family,start=pars$coefficients)
 		pars$coefficients <- fit$coefficients