[Depmix-commits] r627 - pkg/depmixS4/R

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

Author: ingmarvisser
Date: 2014-04-02 12:58:55 +0200 (Wed, 02 Apr 2014)
New Revision: 627

Modified:
   pkg/depmixS4/R/responseGLM.R
Log:
Added factor names to summary of multinomial("identity") models such that parameter interpretation is now easier

Modified: pkg/depmixS4/R/responseGLM.R
===================================================================
--- pkg/depmixS4/R/responseGLM.R	2014-04-02 07:38:17 UTC (rev 626)
+++ pkg/depmixS4/R/responseGLM.R	2014-04-02 10:58:55 UTC (rev 627)
@@ -89,7 +89,8 @@
 				if(ncol(x)>1) stop("covariates not allowed in multinomial model with identity link")
 				ncy <- ncol(y)
 				parameters$coefficients <- rep(1/ncy,ncy)
-				names(parameters$coefficients) <- paste("pr",1:ncol(y),sep="")
+				if(is.null(namesy)) names(parameters$coefficients) <- paste("pr",1:ncol(y),sep="")
+				else names(parameters$coefficients) <- namesy
 				fixed <- rep(0,ncol(y)) 
 				fixed <- c(as.logical(t(fixed)))
 				constr <- list(