Somewhere else, part 60

Several writings worth reading, this week,

  • “Why Theoretical Computer Scientists Aren’t Worried About Privacy” http://jeremykun.com/… via msgbi
  • [lego] “population growth and the gaps in wealth and carbon footprint” via flowingdata

et quelques billets en francais,

et quelques pensées suite à l’élection (partielle) pour les francais d’Amérique du Nord,

> el2012=read.table(
+ "http://komodo.regardscitoyens.org/public/legislatives2012/resultats/LEG_2012_T2_resultats_BE_circonscriptions.csv",
+ header=TRUE,sep=";",dec=",")
  • Frédéric Lefebvre élu avec 8010 voix, score le plus bas de l’hémicycle (hors triangulaires) …
> T=table(el2012$code)
> triangulaire=names(T)[trian]
> el2012b=el2012[el2012$code%notin%triangulaire,]
> elu=el2012b$non
> N=el2012b$Voix
> Xelu=N[elu=="oui"]
> lefebvre=8010
> Xelu=c(lefebvre,Xelu)
> boxplot(Xelu,horizontal=TRUE,col="light blue")
> abline(v=lefebvre,col="red")
  • …dans une circonscription de plus de 150,000 inscrits. Mais l’important, c’est de gagner, non ?
> N=el2012b$Voix
> insc=el2012b$Inscrits
> Xelu=N[elu=="oui"]/insc[elu=="oui"]
> Xelu=c(lefebvre/156645,Xelu)
> boxplot(Xelu,horizontal=TRUE,col="light blue")
> abline(v=lefebvre/156645,col="red")

Did I miss something ?


Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.