[Robast-commits] r317 - branches/robast-0.7/pkg/RobAStBase/R

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

Author: stamats
Date: 2009-07-01 06:30:00 +0200 (Wed, 01 Jul 2009)
New Revision: 317

Modified:
   branches/robast-0.7/pkg/RobAStBase/R/AllPlot.R
Log:
bug(?) in plot corrected now works for trafo ... similar bug in plot method for L2ParamFamily?!

Modified: branches/robast-0.7/pkg/RobAStBase/R/AllPlot.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/AllPlot.R	2009-06-30 13:10:31 UTC (rev 316)
+++ branches/robast-0.7/pkg/RobAStBase/R/AllPlot.R	2009-07-01 04:30:00 UTC (rev 317)
@@ -24,7 +24,6 @@
 
         trafO <- trafo(L2Fam at param)
         dims  <- nrow(trafO)
-        dimm <- length(L2Fam at param)
         
         to.draw <- 1:dims
         dimnms  <- c(rownames(trafO))
@@ -91,7 +90,7 @@
         if(!is.null(dots[["xlab"]])) dots["xlab"] <- NULL
         if(!is.null(dots[["ylab"]])) dots["ylab"] <- NULL
 
-        IC1 <- as(diag(dimm) %*% x at Curve, "EuclRandVariable")
+        IC1 <- as(diag(dims) %*% x at Curve, "EuclRandVariable")
 
         mainL <- FALSE
         subL <- FALSE