Nothing
## Generating function
FixRobRegTypeModel <- function(center = RegTypeFamily(),
neighbor = ContNeighborhood()){
new("FixRobRegTypeModel", center = center, neighbor = neighbor)
}
## Replace methods
setReplaceMethod("neighbor", "FixRobRegTypeModel",
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.