R/HampIC.R

### HampIC is only used internally; so no generating function exists;

## Access methods
setMethod("biastype", "HampIC", function(object) object@biastype)
setMethod("normtype", "HampIC", function(object) object@normtype)
setMethod("stand", "HampIC", function(object) object@stand)
setMethod("weight", "HampIC", function(object) object@weight)
setMethod("lowerCase", "HampIC", function(object) object@lowerCase)
setMethod("neighborRadius", "HampIC", function(object) object@neighborRadius)

setReplaceMethod("neighborRadius", "HampIC",
    function(object, value){
        object@neighborRadius <- value
        if(any(value < 0)) # radius vector?!
            stop("'value' has to be in [0, Inf]")
        addInfo(object) <- c("neighborRadius<-", "The slot 'neighborRadius' has been changed")
        addInfo(object) <- c("neighborRadius<-", "The entries in 'Risks' and 'Infos' may be wrong")
        object
    })

## comment 20180809: reverted changes in rev 1110

Try the RobAStBase package in your browser

Any scripts or data that you put into this service are public.

RobAStBase documentation built on April 6, 2019, 3 a.m.