Nothing
## Generating function
InfRobRegTypeModel <- function(center = L2RegTypeFamily(),
neighbor = ContNeighborhood()) {
new("InfRobRegTypeModel", center = center, neighbor = neighbor)
}
## Replace methods
setReplaceMethod("neighbor", "InfRobRegTypeModel",
function(object, value){
object@neighbor <- value
validObject(object)
object
})
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.