Menggunakan pengacakan untuk menilai assortativitas
Dalam latihan ini, Anda akan menentukan seberapa mungkin nilai assortativitas yang teramati pada jaringan pertemanan mengingat gender tiap simpul dengan melakukan prosedur pengacakan. Anda akan mengacak gender simpul dalam jaringan sebanyak 1000 kali dan menghitung ulang nilai assortativitas untuk setiap jaringan acak.
Latihan ini merupakan bagian dari kursus
Analisis Jaringan di R
Instruksi latihan
- Gunakan
assortativity()untuk menghitung nilai assortativitas dari objek grafg1berdasarkan gender menggunakan objekvaluesyang dihitung pada latihan sebelumnya, lalu simpan ke objekobserved.assortativity. - Di dalam perulangan for, hitung nilai assortativitas jaringan
g1menggunakanassortativity()sambil setiap kali mengacak objekvaluesdengansample(). - Plot distribusi nilai assortativitas dari prosedur permutasi ini menggunakan
hist()dan tambahkan garis vertikal berwarna merah untuk nilai assortativitas teramati pada jaringang1asli yang disimpan dalamobserved.assortativity.
Latihan interaktif langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
# 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)