e<-
function(tabla)
{
	outer(apply(tabla, 1, sum), apply(tabla, 2, sum))/sum(tabla)
}