caim = function (tb)
{
nr <- dim(tb)[1]
nc <- dim(tb)[2]
maxr <- apply(tb, 1, max)
Mr <- apply(tb, 1, sum)
sum(maxr^2/Mr)/nr
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.