Banzhaf y las elecciones que se nos vienen
Es pertinente rescatar una entrada de hace tres años sobre D’Hondt y Banzhaf. En el enlace, los detalles. Me limitaré a actualizar el código de la función para que muestre las alianzas (algunas enteramente esperpénticas) posibles, que queda de la forma banzhaf <- function(x){ x <- -sort(-x) x <- x/sum(x) foo <- function(a,b,p){ if(p>1/2) return(list(a)) if (length(b)==0) return(NULL) b.prima <- b[-1] delta <- b[1] p.delta <- x[delta] return(c(foo(c(a,delta), b.prima, p+p.delta), foo(a,b.prima,p))) } res <- foo( NULL, names(x), 0) print(res) sort( table(unlist(res)) / length(res) ) } y a aplicarlo sobre algunos casos de la más rabiosa actualidad que Leda Duelo ha tenido la gentileza de preparar para mí y, a través de esta página, para ti también. Son los que siguen. ...