Nothing
#### Generating functions for subclasses of interpolRisk
OMSRRisk <- function(samplesize = 100) new("OMSRRisk",type=".OMSE", samplesize = samplesize)
MBRRisk <- function(samplesize = 100) new("MBRRisk",type=".MBRE", samplesize = samplesize)
RMXRRisk <- function(samplesize = 100) new("RMXRRisk",type=".RMXE", samplesize = samplesize)
setMethod("samplesize","interpolRisk", function(object)object@samplesize)
setReplaceMethod("samplesize","interpolRisk", function(object, value){
object@samplesize <- value; object})
setMethod("biastype","interpolRisk", function(object) symmetricBias())
setMethod("normtype","interpolRisk", function(object) NormType())
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.