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

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

Author: stamats
Date: 2008-08-06 15:41:27 +0200 (Wed, 06 Aug 2008)
New Revision: 146

Modified:
   branches/robast-0.6/pkg/RobAStBase/R/AllClass.R
Log:
minor changes to validity checking ...

Modified: branches/robast-0.6/pkg/RobAStBase/R/AllClass.R
===================================================================
--- branches/robast-0.6/pkg/RobAStBase/R/AllClass.R	2008-08-05 16:58:12 UTC (rev 145)
+++ branches/robast-0.6/pkg/RobAStBase/R/AllClass.R	2008-08-06 13:41:27 UTC (rev 146)
@@ -161,20 +161,12 @@
                       biastype = symmetricBias(), NormType = NormType()),
             contains = "HampIC",
             validity = function(object){
-                if(any(object at neighborRadius < 0)) # radius vector?!
-                    stop("'neighborRadius' has to be in [0, Inf]")
                 if(length(object at cent) != nrow(object at stand))
                     stop("length of centering constant != nrow of standardizing matrix")
                 if((length(object at clip) != 1) && (length(object at clip) != length(object at Curve)))
                     stop("length of clipping bound != 1 and != length of 'Curve'")
-                if(!is.null(object at lowerCase))
-                    if(length(object at lowerCase) != nrow(object at stand))
-                        stop("length of 'lowerCase' != nrow of standardizing matrix")
-                L2Fam <- eval(object at CallL2Fam)
                 if(!is(weight,"HampelWeight")) 
                     stop("Weight has to be of class 'HampelWeight'")
-                if(!identical(dim(L2Fam at param@trafo), dim(object at stand)))
-                    stop(paste("dimension of 'trafo' of 'param' != dimension of 'stand'"))
                 return(TRUE)
             })
 ## (partial) influence curve of total variation type
@@ -195,17 +187,12 @@
                       biastype = symmetricBias(), NormType = NormType()),
             contains = "HampIC",
             validity = function(object){
-                if(any(object at neighborRadius < 0)) # radius vector?!
-                    stop("'neighborRadius' has to be in [0, Inf]")
                 if((length(object at clipLo) != 1) && (length(object at clipLo) != length(object at Curve)))
                     stop("length of lower clipping bound != 1 and != length of 'Curve'")
                 if((length(object at clipLo) != 1) && (length(object at clipLo) != length(object at Curve)))
                     stop("length of upper clipping bound != 1 and != length of 'Curve'")
-                L2Fam <- eval(object at CallL2Fam)
                 if(!is(weight,"BdStWeight")) 
                     stop("Weight has to be of class 'BdStWeight'")
-                if(!identical(dim(L2Fam at param@trafo), dim(object at stand)))
-                    stop(paste("dimension of 'trafo' of 'param' != dimension of 'stand'"))
                 return(TRUE)
             })