Randomizações de transitividade

Como você fez para o comprimento médio do caminho, vamos investigar se a transitividade global da rede de Forrest Gump é significativamente maior do que esperaríamos ao acaso para redes aleatórias de mesmo tamanho e densidade. Você pode comparar a transitividade global de Forrest Gump com outras 1000 redes aleatórias.

Este exercício faz parte do curso

Network Analysis in R

Ver curso

Instruções do exercício

Mil redes aleatórias estão armazenadas no objeto lista gl. Usando lapply() e transitivity(), calcule a transitividade global de cada uma dessas redes. Atribua esses resultados a gl.tr.
Usando unlist(), converta gl.tr em um vetor numérico gl.trs.
Investigue as estatísticas-resumo das transitividades das redes aleatórias usando summary().
Calcule a proporção de grafos aleatórios que têm uma transitividade maior do que a transitividade da rede de Forrest Gump, que você calculou anteriormente e atribuiu a g.tr.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

library(igraph)

# Calculate average transitivity of 1000 random graphs
gl.tr <- ___(gl, ___)
gl.trs <- ___(gl.tr)

# Get summary statistics of transitivity scores
___(gl.trs)

# Calculate the proportion of graphs with a transitivity score higher than Forrest Gump's network
mean(gl.trs > ___)

Editar e executar o código