recalibrate<-function(design, formula, ...){
m<-model.matrix(formula, model.frame(design))
calibrate(design,formula, colSums(m*weights(design)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.