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.