Nothing
## access methods
setMethod("center", "RobModel", function(object) object@center)
setMethod("neighbor", "RobModel", function(object) object@neighbor)
setMethod("trafo", signature(object="RobModel",param="missing"),
function(object) trafo(object@center))
## replace methods
setReplaceMethod("center", "RobModel",
function(object, value){ object@center <- value; object })
setReplaceMethod("neighbor", "RobModel",
function(object, value){ object@neighbor <- value; object })
setReplaceMethod("trafo", "RobModel",
function(object, value){ center <- object@center
trafo(center) <- value
object@center <- center
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.