R/Caim.R

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
}
diegomattozo/categorization documentation built on Sept. 26, 2020, 3:42 p.m.