Nothing
probDistance <- function(result, numSimulations = BLCOPOptions("numSimulations"))
{
monteCarloSample <- rmnorm(numSimulations, result@priorMean, result@priorCovar)
mean(abs(dmnorm(monteCarloSample, result@priorMean, result@priorCovar,log=TRUE) - dmnorm(monteCarloSample, result@posteriorMean,
result@posteriorCovar, log = TRUE)))
}
setGeneric("probDistance")
probDistance.COPResult <- function(result, numSimulations = BLCOPOptions("numSimulations") )
{
show("Not implemented yet...")
}
setMethod("probDistance", signature(result = "COPResult"), probDistance.COPResult)
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.