Nothing
makeWeightsAIC <-
function(aics){
min.i<-which(aics==min(aics))
deltas<-aics-aics[min.i][1]
w<-exp(-deltas/2)/sum(exp(-deltas/2))
return(w)
}
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.