Nothing
genprobexact <-
function( Z,
blockvar = NULL,
clustvar = NULL) {
desmat.out <- desmat.sanitize(Z,blockvar,clustvar)
Z <- desmat.out$Z
clustvar <- desmat.out$clustvar
blockvar <- desmat.out$blockvar
probs <- ave(Z, blockvar)
probs.index <- c(1:length(probs))
probsclus <- probs[match(clustvar, probs.index)]
return(probsclus)
}
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.