El paquete igraph hace sencilla la visualización y exploración de redes, pero para hacer análisis inferenciales necesitamos otras herramientas como los paquetes asociados a statnet que tienen su propia forma de definir una red. Por fortuna, tenemos paquetes como intergraph que nos permiten transformar entre las estructuras requeridas por cada paquete de una forma sencilla.

library(statnet)
library(intergraph)
library(igraph)
library(ergm)

edgelist <- readRDS("dta/edgelist-diputados.RDS")
atributos <- readRDS("dta/atributos-diputados.RDS")

Supongamos que estamos interesados en analizar la red de colaboración de diputados pero que queremos estudiar los determinantes de la formación de aristas entre dos vértices. Por ejemplo, queremos estudiar si la formación de aristas está relacionada con, ya no solo el partido, si no con otros atributos de los diputados. Para eso, queremos estudiar el proceso de generación de datos de la red y estudiar la distribución muestral de los estadísticos de la red. Pero antes de nada, tenemos que incorporar nuestra base de datos de atributos a nuestra lista de vértices, y transformar una red de igraph en una de statnet.

Empecemos creando una base de datos con atributos usando graph_from_data_frame del paquete igraph, que nos permite definir una red con atributos a nivel de vértice usando columnas de una base de datos.

edgelist <- as.data.frame(edgelist)
names(edgelist) <- c("from", "to")
edgelist$from <- as.character(edgelist$from)
edgelist$to <- as.character(edgelist$to)
atributos$id <- as.character(atributos$id)

Ahora podemos definir la red con atributos usando el argumento vertices que toma una base de datos en la que los nombres de la fila se usan para hacer el emparejamiento con los vértices de la lista de aristas.

g <- graph_from_data_frame(edgelist, directed=FALSE, vertices=atributos)

¿Por qué ha fallado esta operación?

length(unique(atributos$id))
length(unique(unlist(edgelist)))

Como vemos, la base de datos de atributos define más diputados que los que están presentes en la lista de aristas. Eso no es un problema. Sin embargo, también vemos que

mis <- setdiff(unlist(edgelist), atributos$id) ## Diputados que ya no estan
mis

Debemos por tanto ajustar las dos bases de datos quitando de la lista de aristas las que se refieren a diputados que no existen.

edgelist <- edgelist[!(edgelist$from %in% mis | edgelist$to %in% mis), ]

Ahora podemos intentar crear otra vez nuestra base de datos

g <- graph_from_data_frame(edgelist, directed=FALSE, vertices=atributos)

y transformarla a un objeto de statnet usando la función asNetwork de intergraph.

g <- asNetwork(g)
plot(g)

El paquete statnet funciona de forma diferente, y un poco más complicada, que igraph. Por ejemplo, si queremos ver el vector de atributos de un vértice podemos usar la función %v%

head(g %v% "grupo")
head(g %v% "edad")

El formato statnet nos permite usar las funciones de ergm para la estimación de modelos. Por ejemplo, podemos investigar si la probabilidad de formar aristas entre dos nodos depende del género o de la edad de los diputados. Pero antes de pasar ahí, quizás sea buena idea empezar con el modelo de Erdos-Renyi, que contiene un único término que captura la densidad de la red como función de una probabilidad homogénea de formar aristas.

summary(ergm(g ~ edges))

Podemos ahora testar si la probabilidad de formar aristas depende del partido político al que pertenece cada diputado. En este caso, queremos controlar por el número de aristas adyacentes a cada nodo.

basemodel <- ergm(g ~ edges + nodematch("grupo"))
summary(basemodel)

No es sorpresa que los términos sean estadísticamente significativos, ya que hemos visto que las redes están altamente organizadas alrededor de los partidos. Lo que el resultado nos dice es que las aristas es más probable que se formen entre vértices de un mismo partido. Otra forma de enfocar esta pregunta es mirando a la homofilia por partido. En ese caso, podríamos tener partidos más dispuestos a colaborar que otros.

basemodeldiff <- ergm(g ~ edges + nodematch("grupo", diff=TRUE))
summary(basemodeldiff)

La única sorpresa quizás sea el término -Inf en la variable que captura Grupo Vasco. Pero puede explicarse mirando a los descriptivos de la red.

mixingmatrix(g, "grupo")

Un elemento fundamental en el análisis de redes es la simulación. Podemos usar una simulación para ver hasta qué punto el modelo que hemos propuesto refleja correctamente la estructura subyacente de la red. Simular una red a través de un modelo en statnet es sencillo:

plot(simulate(basemodeldiff))

La red captura la concentración en clusters, pero está mucho más conectada que la red real, así que plantea dudas sobre la validez del modelo. Si el grupo político fuese el único determinante de la formación de aristas, tendríamos una red mucho más densamente conectada. Podemos ser un poco más precisos en esta aserción mirando a medidas de bondad de ajuste para ver hasta qué punto nuestro modelo ajusta los datos.

gof_base <- gof(basemodel)
plot(gof_base)

Podemos intentar contrastar otras teorías y añadir más términos a nuestro modelo. Por ejemplo, podemos estar interesados en un efecto generacional en la formación de las redes de colaboración. En ese caso, podríamos estar interesados en ver si hay una tendencia de los diputados a colaborar con gente de su edad.

expmodel <- ergm(g ~ edges + nodematch("grupo") + absdiff("edad"))
summary(expmodel)

El efecto es significativo, lo cual indica homofilia por edad, pero no vemos un mejor ajuste del modelo a los datos.

gof_exp <- gof(expmodel)
plot(gof_exp)

Podemos intentar otras explicaciones quizás más plausibles. Por ejemplo, quizás no sea la edad lo que marque las diferencias en la colaboración, sino tal vez la antigüedad en el Congreso, quizás como forma de medir la relación entre nuevos y viejos partidos (o al menos nuevos y viejos congresistas). O también podemos pensar en redes de colaboración territorial en la que los diputados de la misma región es más probable que colaboren.

LS0tIAp0aXRsZTogIkluZmVyZW5jaWEgZXN0YWTDrXN0aWNhIGVuIHJlZGVzOiBIb21vZmlsaWEiCmRhdGU6ICJgciBmb3JtYXQoU3lzLnRpbWUoKSwgJyVCICVkLCAlWScpYCIKLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRSwgY2FjaGU9RkFMU0V9CmtuaXRyOjpvcHRzX2NodW5rJHNldChldmFsID0gRkFMU0UpCmtuaXRyOjpvcHRzX2NodW5rJHNldChmaWcucGF0aCA9ICcuL2Fzc2V0cy8nKQpgYGAKCkVsIHBhcXVldGUgYGlncmFwaGAgaGFjZSBzZW5jaWxsYSBsYSB2aXN1YWxpemFjacOzbiB5IGV4cGxvcmFjacOzbiBkZSByZWRlcywgcGVybwpwYXJhIGhhY2VyIGFuw6FsaXNpcyBpbmZlcmVuY2lhbGVzIG5lY2VzaXRhbW9zIG90cmFzIGhlcnJhbWllbnRhcyBjb21vIGxvcwpwYXF1ZXRlcyBhc29jaWFkb3MgYSBgc3RhdG5ldGAgcXVlIHRpZW5lbiBzdSBwcm9waWEgZm9ybWEgZGUgZGVmaW5pciB1bmEgcmVkLgpQb3IgZm9ydHVuYSwgdGVuZW1vcyBwYXF1ZXRlcyBjb21vIGBpbnRlcmdyYXBoYCBxdWUgbm9zIHBlcm1pdGVuIHRyYW5zZm9ybWFyCmVudHJlIGxhcyBlc3RydWN0dXJhcyByZXF1ZXJpZGFzIHBvciBjYWRhIHBhcXVldGUgZGUgdW5hIGZvcm1hIHNlbmNpbGxhLgoKYGBge3J9CmxpYnJhcnkoc3RhdG5ldCkKbGlicmFyeShpbnRlcmdyYXBoKQpsaWJyYXJ5KGlncmFwaCkKbGlicmFyeShlcmdtKQoKZWRnZWxpc3QgPC0gcmVhZFJEUygiZHRhL2VkZ2VsaXN0LWRpcHV0YWRvcy5SRFMiKQphdHJpYnV0b3MgPC0gcmVhZFJEUygiZHRhL2F0cmlidXRvcy1kaXB1dGFkb3MuUkRTIikKYGBgCgpTdXBvbmdhbW9zIHF1ZSBlc3RhbW9zIGludGVyZXNhZG9zIGVuIGFuYWxpemFyIGxhIHJlZCBkZSBjb2xhYm9yYWNpw7NuIGRlCmRpcHV0YWRvcyBwZXJvIHF1ZSBxdWVyZW1vcyBlc3R1ZGlhciBsb3MgZGV0ZXJtaW5hbnRlcyBkZSBsYSBmb3JtYWNpw7NuIGRlCmFyaXN0YXMgZW50cmUgZG9zIHbDqXJ0aWNlcy4gUG9yIGVqZW1wbG8sIHF1ZXJlbW9zIGVzdHVkaWFyIHNpIGxhIGZvcm1hY2nDs24gZGUKYXJpc3RhcyBlc3TDoSByZWxhY2lvbmFkYSBjb24sIHlhIG5vIHNvbG8gZWwgcGFydGlkbywgc2kgbm8gY29uIG90cm9zIGF0cmlidXRvcwpkZSBsb3MgZGlwdXRhZG9zLiBQYXJhIGVzbywgcXVlcmVtb3MgZXN0dWRpYXIgZWwgcHJvY2VzbyBkZSBnZW5lcmFjacOzbiBkZSBkYXRvcwpkZSBsYSByZWQgeSBlc3R1ZGlhciBsYSBkaXN0cmlidWNpw7NuIG11ZXN0cmFsIGRlIGxvcyBlc3RhZMOtc3RpY29zIGRlIGxhIHJlZC4KUGVybyBhbnRlcyBkZSBuYWRhLCB0ZW5lbW9zIHF1ZSBpbmNvcnBvcmFyIG51ZXN0cmEgYmFzZSBkZSBkYXRvcyBkZSBhdHJpYnV0b3MgYQpudWVzdHJhIGxpc3RhIGRlIHbDqXJ0aWNlcywgeSB0cmFuc2Zvcm1hciB1bmEgcmVkIGRlIGBpZ3JhcGhgIGVuIHVuYSBkZQpgc3RhdG5ldGAuIAoKRW1wZWNlbW9zIGNyZWFuZG8gdW5hIGJhc2UgZGUgZGF0b3MgY29uIGF0cmlidXRvcyB1c2FuZG8gYGdyYXBoX2Zyb21fZGF0YV9mcmFtZWAKZGVsIHBhcXVldGUgYGlncmFwaGAsIHF1ZSBub3MgcGVybWl0ZSBkZWZpbmlyIHVuYSByZWQgY29uIGF0cmlidXRvcyBhIG5pdmVsIGRlCnbDqXJ0aWNlIHVzYW5kbyBjb2x1bW5hcyBkZSB1bmEgYmFzZSBkZSBkYXRvcy4gCgpgYGB7cn0KZWRnZWxpc3QgPC0gYXMuZGF0YS5mcmFtZShlZGdlbGlzdCkKbmFtZXMoZWRnZWxpc3QpIDwtIGMoImZyb20iLCAidG8iKQplZGdlbGlzdCRmcm9tIDwtIGFzLmNoYXJhY3RlcihlZGdlbGlzdCRmcm9tKQplZGdlbGlzdCR0byA8LSBhcy5jaGFyYWN0ZXIoZWRnZWxpc3QkdG8pCmF0cmlidXRvcyRpZCA8LSBhcy5jaGFyYWN0ZXIoYXRyaWJ1dG9zJGlkKQpgYGAKCkFob3JhIHBvZGVtb3MgZGVmaW5pciBsYSByZWQgY29uIGF0cmlidXRvcyB1c2FuZG8gZWwgYXJndW1lbnRvIGB2ZXJ0aWNlc2AgcXVlCnRvbWEgdW5hIGJhc2UgZGUgZGF0b3MgZW4gbGEgcXVlIGxvcyBub21icmVzIGRlIGxhIGZpbGEgc2UgdXNhbiBwYXJhIGhhY2VyIGVsCmVtcGFyZWphbWllbnRvIGNvbiBsb3MgdsOpcnRpY2VzIGRlIGxhIGxpc3RhIGRlIGFyaXN0YXMuIApgYGB7ciBldmFsPUZBTFNFfQpnIDwtIGdyYXBoX2Zyb21fZGF0YV9mcmFtZShlZGdlbGlzdCwgZGlyZWN0ZWQ9RkFMU0UsIHZlcnRpY2VzPWF0cmlidXRvcykKYGBgCgrCv1BvciBxdcOpIGhhIGZhbGxhZG8gZXN0YSBvcGVyYWNpw7NuPyAKYGBge3J9Cmxlbmd0aCh1bmlxdWUoYXRyaWJ1dG9zJGlkKSkKbGVuZ3RoKHVuaXF1ZSh1bmxpc3QoZWRnZWxpc3QpKSkKYGBgCiAKQ29tbyB2ZW1vcywgbGEgYmFzZSBkZSBkYXRvcyBkZSBhdHJpYnV0b3MgZGVmaW5lIG3DoXMgZGlwdXRhZG9zIHF1ZSBsb3MgcXVlIGVzdMOhbgpwcmVzZW50ZXMgZW4gbGEgbGlzdGEgZGUgYXJpc3Rhcy4gRXNvIG5vIGVzIHVuIHByb2JsZW1hLiBTaW4gZW1iYXJnbywgdGFtYmnDqW4KdmVtb3MgcXVlIApgYGB7cn0KbWlzIDwtIHNldGRpZmYodW5saXN0KGVkZ2VsaXN0KSwgYXRyaWJ1dG9zJGlkKSAjIyBEaXB1dGFkb3MgcXVlIHlhIG5vIGVzdGFuCm1pcwpgYGAKCkRlYmVtb3MgcG9yIHRhbnRvIGFqdXN0YXIgbGFzIGRvcyBiYXNlcyBkZSBkYXRvcyBxdWl0YW5kbyBkZSBsYSBsaXN0YSBkZQphcmlzdGFzIGxhcyBxdWUgc2UgcmVmaWVyZW4gYSBkaXB1dGFkb3MgcXVlIG5vIGV4aXN0ZW4uIAoKYGBge3J9CmVkZ2VsaXN0IDwtIGVkZ2VsaXN0WyEoZWRnZWxpc3QkZnJvbSAlaW4lIG1pcyB8IGVkZ2VsaXN0JHRvICVpbiUgbWlzKSwgXQpgYGAKCkFob3JhIHBvZGVtb3MgaW50ZW50YXIgY3JlYXIgb3RyYSB2ZXogbnVlc3RyYSBiYXNlIGRlIGRhdG9zCmBgYHtyfQpnIDwtIGdyYXBoX2Zyb21fZGF0YV9mcmFtZShlZGdlbGlzdCwgZGlyZWN0ZWQ9RkFMU0UsIHZlcnRpY2VzPWF0cmlidXRvcykKYGBgCnkgdHJhbnNmb3JtYXJsYSBhIHVuIG9iamV0byBkZSBgc3RhdG5ldGAgdXNhbmRvIGxhIGZ1bmNpw7NuIGBhc05ldHdvcmtgIGRlCmBpbnRlcmdyYXBoYC4gCgpgYGB7cn0KZyA8LSBhc05ldHdvcmsoZykKcGxvdChnKQpgYGAKCkVsIHBhcXVldGUgYHN0YXRuZXRgIGZ1bmNpb25hIGRlIGZvcm1hIGRpZmVyZW50ZSwgeSB1biBwb2NvIG3DoXMgY29tcGxpY2FkYSwgcXVlCmBpZ3JhcGhgLiBQb3IgZWplbXBsbywgc2kgcXVlcmVtb3MgdmVyIGVsIHZlY3RvciBkZSBhdHJpYnV0b3MgZGUgdW4gdsOpcnRpY2UKcG9kZW1vcyB1c2FyIGxhIGZ1bmNpw7NuIGAldiVgCgpgYGB7cn0KaGVhZChnICV2JSAiZ3J1cG8iKQpoZWFkKGcgJXYlICJlZGFkIikKYGBgCgpFbCBmb3JtYXRvIGBzdGF0bmV0YCBub3MgcGVybWl0ZSB1c2FyIGxhcyBmdW5jaW9uZXMgZGUgYGVyZ21gIHBhcmEgbGEgZXN0aW1hY2nDs24KZGUgbW9kZWxvcy4gUG9yIGVqZW1wbG8sIHBvZGVtb3MgaW52ZXN0aWdhciBzaSBsYSBwcm9iYWJpbGlkYWQgZGUgZm9ybWFyIGFyaXN0YXMKZW50cmUgZG9zIG5vZG9zIGRlcGVuZGUgZGVsIGfDqW5lcm8gbyBkZSBsYSBlZGFkIGRlIGxvcyBkaXB1dGFkb3MuIFBlcm8gYW50ZXMgZGUKcGFzYXIgYWjDrSwgcXVpesOhcyBzZWEgYnVlbmEgaWRlYSBlbXBlemFyIGNvbiBlbCBtb2RlbG8gZGUgRXJkb3MtUmVueWksIHF1ZQpjb250aWVuZSB1biDDum5pY28gdMOpcm1pbm8gcXVlIGNhcHR1cmEgbGEgZGVuc2lkYWQgZGUgbGEgcmVkIGNvbW8gZnVuY2nDs24gZGUgdW5hCnByb2JhYmlsaWRhZCBob21vZ8OpbmVhIGRlIGZvcm1hciBhcmlzdGFzLiAKCmBgYHtyfQpzdW1tYXJ5KGVyZ20oZyB+IGVkZ2VzKSkKYGBgCgpQb2RlbW9zIGFob3JhIHRlc3RhciBzaSBsYSBwcm9iYWJpbGlkYWQgZGUgZm9ybWFyIGFyaXN0YXMgZGVwZW5kZSBkZWwgcGFydGlkbwpwb2zDrXRpY28gYWwgcXVlIHBlcnRlbmVjZSBjYWRhIGRpcHV0YWRvLiBFbiBlc3RlIGNhc28sIHF1ZXJlbW9zIGNvbnRyb2xhciBwb3IgZWwKbsO6bWVybyBkZSBhcmlzdGFzIGFkeWFjZW50ZXMgYSBjYWRhIG5vZG8uIAoKYGBge3J9CmJhc2Vtb2RlbCA8LSBlcmdtKGcgfiBlZGdlcyArIG5vZGVtYXRjaCgiZ3J1cG8iKSkKc3VtbWFyeShiYXNlbW9kZWwpCmBgYAoKTm8gZXMgc29ycHJlc2EgcXVlIGxvcyB0w6lybWlub3Mgc2VhbiBlc3RhZMOtc3RpY2FtZW50ZSBzaWduaWZpY2F0aXZvcywgeWEgcXVlCmhlbW9zIHZpc3RvIHF1ZSBsYXMgcmVkZXMgZXN0w6FuIGFsdGFtZW50ZSBvcmdhbml6YWRhcyBhbHJlZGVkb3IgZGUgbG9zIHBhcnRpZG9zLgpMbyBxdWUgZWwgcmVzdWx0YWRvIG5vcyBkaWNlIGVzIHF1ZSBsYXMgYXJpc3RhcyBlcyBtw6FzIHByb2JhYmxlIHF1ZSBzZSBmb3JtZW4KZW50cmUgdsOpcnRpY2VzIGRlIHVuIG1pc21vIHBhcnRpZG8uIE90cmEgZm9ybWEgZGUgZW5mb2NhciBlc3RhIHByZWd1bnRhIGVzCm1pcmFuZG8gYSBsYSBob21vZmlsaWEgX3BvciBwYXJ0aWRvXy4gRW4gZXNlIGNhc28sIHBvZHLDrWFtb3MgdGVuZXIgcGFydGlkb3MgbcOhcwpkaXNwdWVzdG9zIGEgY29sYWJvcmFyIHF1ZSBvdHJvcy4gCgpgYGB7cn0KYmFzZW1vZGVsZGlmZiA8LSBlcmdtKGcgfiBlZGdlcyArIG5vZGVtYXRjaCgiZ3J1cG8iLCBkaWZmPVRSVUUpKQpzdW1tYXJ5KGJhc2Vtb2RlbGRpZmYpCgpgYGAKTGEgw7puaWNhIHNvcnByZXNhIHF1aXrDoXMgc2VhIGVsIHTDqXJtaW5vIGAtSW5mYCBlbiBsYSB2YXJpYWJsZSBxdWUgY2FwdHVyYSBHcnVwbwpWYXNjby4gUGVybyBwdWVkZSBleHBsaWNhcnNlIG1pcmFuZG8gYSBsb3MgZGVzY3JpcHRpdm9zIGRlIGxhIHJlZC4gCgpgYGB7cn0KbWl4aW5nbWF0cml4KGcsICJncnVwbyIpCmBgYAoKVW4gZWxlbWVudG8gZnVuZGFtZW50YWwgZW4gZWwgYW7DoWxpc2lzIGRlIHJlZGVzIGVzIGxhIHNpbXVsYWNpw7NuLiBQb2RlbW9zIHVzYXIKdW5hIHNpbXVsYWNpw7NuIHBhcmEgdmVyIGhhc3RhIHF1w6kgcHVudG8gZWwgbW9kZWxvIHF1ZSBoZW1vcyBwcm9wdWVzdG8gcmVmbGVqYQpjb3JyZWN0YW1lbnRlIGxhIGVzdHJ1Y3R1cmEgc3VieWFjZW50ZSBkZSBsYSByZWQuIFNpbXVsYXIgdW5hIHJlZCBhIHRyYXbDqXMgZGUgdW4KbW9kZWxvIGVuIGBzdGF0bmV0YCBlcyBzZW5jaWxsbzoKCmBgYHtyfQpwbG90KHNpbXVsYXRlKGJhc2Vtb2RlbGRpZmYpKQpgYGAKCkxhIHJlZCBjYXB0dXJhIGxhIGNvbmNlbnRyYWNpw7NuIGVuIGNsdXN0ZXJzLCBwZXJvIGVzdMOhIG11Y2hvIG3DoXMgY29uZWN0YWRhIHF1ZQpsYSByZWQgcmVhbCwgYXPDrSBxdWUgcGxhbnRlYSBkdWRhcyBzb2JyZSBsYSB2YWxpZGV6IGRlbCBtb2RlbG8uIFNpIGVsIGdydXBvCnBvbMOtdGljbyBmdWVzZSBlbCDDum5pY28gZGV0ZXJtaW5hbnRlIGRlIGxhIGZvcm1hY2nDs24gZGUgYXJpc3RhcywgdGVuZHLDrWFtb3MgdW5hCnJlZCBtdWNobyBtw6FzIGRlbnNhbWVudGUgY29uZWN0YWRhLiBQb2RlbW9zIHNlciB1biBwb2NvIG3DoXMgcHJlY2lzb3MgZW4gZXN0YQphc2VyY2nDs24gbWlyYW5kbyBhIG1lZGlkYXMgZGUgYm9uZGFkIGRlIGFqdXN0ZSBwYXJhIHZlciBoYXN0YSBxdcOpIHB1bnRvIG51ZXN0cm8KbW9kZWxvIGFqdXN0YSBsb3MgZGF0b3MuIAoKYGBge3J9CmdvZl9iYXNlIDwtIGdvZihiYXNlbW9kZWwpCnBsb3QoZ29mX2Jhc2UpCmBgYAoKUG9kZW1vcyBpbnRlbnRhciBjb250cmFzdGFyIG90cmFzIHRlb3LDrWFzIHkgYcOxYWRpciBtw6FzIHTDqXJtaW5vcyBhIG51ZXN0cm8KbW9kZWxvLiBQb3IgZWplbXBsbywgcG9kZW1vcyBlc3RhciBpbnRlcmVzYWRvcyBlbiB1biBlZmVjdG8gZ2VuZXJhY2lvbmFsIGVuIGxhCmZvcm1hY2nDs24gZGUgbGFzIHJlZGVzIGRlIGNvbGFib3JhY2nDs24uIEVuIGVzZSBjYXNvLCBwb2Ryw61hbW9zIGVzdGFyIGludGVyZXNhZG9zCmVuIHZlciBzaSBoYXkgdW5hIHRlbmRlbmNpYSBkZSBsb3MgZGlwdXRhZG9zIGEgY29sYWJvcmFyIGNvbiBnZW50ZSBkZSBzdSBlZGFkLgoKYGBge3J9CmV4cG1vZGVsIDwtIGVyZ20oZyB+IGVkZ2VzICsgbm9kZW1hdGNoKCJncnVwbyIpICsgYWJzZGlmZigiZWRhZCIpKQpzdW1tYXJ5KGV4cG1vZGVsKQpgYGAKCkVsIGVmZWN0byBlcyBzaWduaWZpY2F0aXZvLCBsbyBjdWFsIGluZGljYSBob21vZmlsaWEgcG9yIGVkYWQsIHBlcm8gbm8gdmVtb3MgdW4KbWVqb3IgYWp1c3RlIGRlbCBtb2RlbG8gYSBsb3MgZGF0b3MuIAoKYGBge3J9CmdvZl9leHAgPC0gZ29mKGV4cG1vZGVsKQpwbG90KGdvZl9leHApCmBgYAoKUG9kZW1vcyBpbnRlbnRhciBvdHJhcyBleHBsaWNhY2lvbmVzIHF1aXrDoXMgbcOhcyBwbGF1c2libGVzLiBQb3IgZWplbXBsbywgcXVpesOhcwpubyBzZWEgbGEgZWRhZCBsbyBxdWUgbWFycXVlIGxhcyBkaWZlcmVuY2lhcyBlbiBsYSBjb2xhYm9yYWNpw7NuLCBzaW5vIHRhbCB2ZXogbGEKYW50aWfDvGVkYWQgZW4gZWwgQ29uZ3Jlc28sIHF1aXrDoXMgY29tbyBmb3JtYSBkZSBtZWRpciBsYSByZWxhY2nDs24gZW50cmUgbnVldm9zIHkKdmllam9zIHBhcnRpZG9zIChvIGFsIG1lbm9zIG51ZXZvcyB5IHZpZWpvcyBjb25ncmVzaXN0YXMpLiBPIHRhbWJpw6luIHBvZGVtb3MKcGVuc2FyIGVuIHJlZGVzIGRlIGNvbGFib3JhY2nDs24gdGVycml0b3JpYWwgZW4gbGEgcXVlIGxvcyBkaXB1dGFkb3MgZGUgbGEgbWlzbWEKcmVnacOzbiBlcyBtw6FzIHByb2JhYmxlIHF1ZSBjb2xhYm9yZW4uIAoK