Nothing
"hubb2vect" <-
function(vec)
{
S <- length(vec)
J <- sum(vec)
lim <- c(0,cumsum(vec))
hubb.x <- vector("numeric",J)
for (i in 1:S) hubb.x[(lim[i]+1):lim[i+1]] <- i
class(hubb.x) <- "hubbell"
hubb.x
}
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.