Nothing
### 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
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.