Nothing
#S4-class definition
setClass( "q2", representation( result="list", output="list" ) )
setMethod("show", "q2", function(object) func.output.performanceValues(object@result, object@output) )
setClass( "cvq2", contains = "q2" )
# setMethod("[", "cvq2", function(x, i, j, ..., drop) { x@result <- x@result[i]; x })
# setMethod("@",...) ???
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.