Nothing
setMethod("ESS",signature(object="ParticleBase"),
function(object,...) {
#w <- exp(object@logWeights)
sumw <- sum(exp(object@logWeights))
sumsq <- sum(exp(2*object@logWeights))
exp(-log(sumsq) + 2*log(sumw))
}
)
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.