Nothing
`upd.prob` <-
function(samples, v, weight, comp.list)
{
p <- matrix(0, nrow=nrow(v), ncol=ncol(v))
s <- nrow(samples)
p <- apply(samples,2,function(x)
table(x)[match(as.character(comp.list), dimnames(table(x))[[1]])]/s)
p[is.na(p)] <- 0
(1-weight)*v + weight*p
}
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.