Nothing
cand.subcascades<- function(conf=NULL, thresh=0, size=NULL, numSol = 1000)
{
#################################################
##
## Check parameter 'conf'
if(is.null(conf))
stop(errorStrings('confMissing'))
if(!inherits(conf, 'Conf'))
stop(errorStrings('conf'))
#################################################
##
## Check parameter 'thresh'
if(!is.numeric(thresh) | length(thresh)!=1)
stop(errorStrings('thresh'))
if(thresh<0 | thresh>1 )
stop(errorStrings('thresh'))
#################################################
##
## Check parameter 'size'
if(is.null(size))
size <- sqrt(nrow(conf$fC)):2
if(!is.numeric(size))
stop(errorStrings('size'))
if(any(size<2))
stop(errorStrings('size'))
#################################################
##
## Check parameter 'numSol'
if(!is.numeric(numSol) | length(numSol)!=1)
stop(errorStrings('numSol'))
if(numSol<1)
stop(errorStrings('numSol'))
#################################################
size <- sort(unique(size), decreasing=T)
result <- lapply(size, function(x){
cand.subcascades.intern(conf, thresh=thresh, size=x, numSol = numSol)
})
names(result) <- paste('size.', size, sep = '')
return(result)
}
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.