### Function to compute Akaike weights:
AkaikeWeights <- function(x){
wi <- signif(exp(-0.5*(x - min(x)))/sum(exp(-0.5*(x - min(x)))), digits=3)
colnames(wi) <- colnames(x)
return(wi)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.