[Robast-commits] r149 - branches/robast-0.6/pkg/RobAStBase/R

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

Author: stamats
Date: 2008-08-07 10:18:21 +0200 (Thu, 07 Aug 2008)
New Revision: 149

Modified:
   branches/robast-0.6/pkg/RobAStBase/R/IC.R
Log:
minor modification

Modified: branches/robast-0.6/pkg/RobAStBase/R/IC.R
===================================================================
--- branches/robast-0.6/pkg/RobAStBase/R/IC.R	2008-08-07 03:40:33 UTC (rev 148)
+++ branches/robast-0.6/pkg/RobAStBase/R/IC.R	2008-08-07 08:18:21 UTC (rev 149)
@@ -132,8 +132,8 @@
         IC1 <- IC1 - cent
 
         dims <- length(L2Fam at param)
-        if(dimension(Domain(IC at Curve[[1]])) != dims)
-           stop("Dimension of IC and parameter must be the equal")
+        if(dimension(IC at Curve) != dims)
+           stop("Dimension of IC and parameter must be equal")
 
         L2deriv <- as(diag(dims) %*% L2Fam at L2deriv, "EuclRandVariable")