Usar aleatorizaciones para evaluar la asortatividad

En este ejercicio vas a determinar cuán probable es la asortatividad observada en la red de amistad dado el género de los vértices mediante un procedimiento de aleatorización. Permutarás aleatoriamente el género de los vértices en la red 1000 veces y recalcularás la asortatividad para cada red aleatoria.

Este ejercicio forma parte del curso

Análisis de redes en R

Ver curso

Instrucciones del ejercicio

Usa assortativity() para calcular la asortatividad del objeto grafo g1 en función del género usando el objeto values calculado en el ejercicio anterior, y asígnala al objeto observed.assortativity.
Dentro del bucle for, calcula la asortatividad de la red g1 con assortativity() mientras permutas aleatoriamente el objeto values cada vez con sample().
Representa la distribución de los valores de asortatividad de este procedimiento de permutación con hist() y añade una línea vertical roja para el valor de asortatividad observado del g1 original que está guardado en observed.assortativity.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

# Calculate the observed assortativity
observed.assortativity <- ___(g1, values)

# Calculate the assortativity of the network randomizing the gender attribute 1000 times
results <- vector('list', 1000)
for(i in 1:1000){
  results[[i]] <- ___(g1, sample(___))
}

# Plot the distribution of assortativity values and add a red vertical line at the original observed value
___(unlist(results))
abline(v = ___, col = "red", lty = 3, lwd=2)

Editar y ejecutar código