setClass("MySampleControl",
# definition of additional properties
contains = "VirtualSampleControl")
setMethod("setup",
signature(x = "data.frame", control = "MySampleControl"),
function(x, control) {
# method definition
})
setMethod("clusterSetup",
signature(x = "data.frame", control = "MySampleControl"),
function(cl, x, control) {
# method definition
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.