[Distr-commits] r507 - branches/distr-2.2/pkg/distrMod/R

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

Author: stamats
Date: 2009-07-15 11:03:30 +0200 (Wed, 15 Jul 2009)
New Revision: 507

Modified:
   branches/distr-2.2/pkg/distrMod/R/AllPlot.R
Log:
should now work for models with trafo - plot shows untransformed family

Modified: branches/distr-2.2/pkg/distrMod/R/AllPlot.R
===================================================================
--- branches/distr-2.2/pkg/distrMod/R/AllPlot.R	2009-07-14 23:30:40 UTC (rev 506)
+++ branches/distr-2.2/pkg/distrMod/R/AllPlot.R	2009-07-15 09:03:30 UTC (rev 507)
@@ -19,11 +19,11 @@
         
         dots$to.draw.arg <- NULL
         trafO <- trafo(x at param)
-        dims <- nrow(trafO)
-        dimm <- length(x at param)
+#        dims <- nrow(trafO)
+        dimm <- dims <- length(x at param)
         
         to.draw <- 1:(3+dims)
-        dimnms  <- c(rownames(trafO))
+        dimnms  <- names(main(x at param)) #c(rownames(trafO))
         if(is.null(dimnms))
            dimnms <- paste("dim",1:dims,sep="")
         names(to.draw) <- c("d","p","q", dimnms)
@@ -157,9 +157,8 @@
      }
 
      if(is.logical(innerL)){
-        tnm  <- c(rownames(trafO))
-        tnms <- if(is.null(tnm)) paste(1:dims) else 
-                                 paste("'", tnm, "'", sep = "") 
+#        tnm  <- c(rownames(trafO))
+        tnms <- 1:dims #if(is.null(tnm)) paste(1:dims) else paste("'", tnm, "'", sep = "") 
         mnm <- names(x at param@main)
         mnms <- if(is.null(mnm)) NULL else paste("'", mnm, "' = ", sep = "") 
         mss  <- paste(mnms, round(x at param@main, 3), collapse=", ",sep="")