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

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

Author: ingmarvisser
Date: 2012-09-25 12:05:57 +0200 (Tue, 25 Sep 2012)
New Revision: 570

Modified:
   pkg/depmixS4/R/depmix-class.R
Log:
summary additions

Modified: pkg/depmixS4/R/depmix-class.R
===================================================================
--- pkg/depmixS4/R/depmix-class.R	2012-09-19 13:57:32 UTC (rev 569)
+++ pkg/depmixS4/R/depmix-class.R	2012-09-25 10:05:57 UTC (rev 570)
@@ -408,9 +408,8 @@
 								}
 						} else {
 								cat("Response parameters \n")
-																
 								for(j in 1:object at nresp) {
-										cat("Resp",j, ":", object at response[[1]][[j]]@family$family, "\n")
+										if("family" %in% slotNames(object at response[[1]][[j]])) cat("Resp",j, ":", object at response[[1]][[j]]@family$family, "\n")
 								}
 								pars <- list()
 								np <- numeric(object at nresp)
@@ -422,9 +421,9 @@
 								    nms <- character()
 								    for(i in 1:ns) {
 								        tnms <- names(getpars(object at response[[i]][[j]]))
+												if(is.null(tnms)) tnms=""
 								        if(any(tnms == "")) {
 								            tnms[tnms == ""] <- paste("noname",1:sum(tnms == ""),sep="") # assume unnamed parameters are the same between
-								           
 								        }
 								        parnames[[j]][[i]] <- tnms
 								        nms <- c(nms,tnms)