Nothing
recalibrate<-function(design, formula, ...){
m<-model.matrix(formula, model.frame(design))
calibrate(design,formula, colSums(m*weights(design)))
}
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.