Ϟσϧ࡞(ྫ)
ࢦϥϯμϜϞσϧTUBUOFUQBDLBHFͰ࣮͕Ͱ͖·͢ɻ
# ωοτϫʔΫΦϒδΣΫτͷ࡞
network <- as.network(x = graph_matrix, directed = FALSE, loops = FALSE)
# ֤Τοδʹઆ໌ม(ྸ)ΛՃ
network %v% "Age" <- Age
# ֤ΤοδͷྸͷࠩΛܭࢉ
diff.age <- abs(sweep(matrix(snap_info$Age, nrow = 638, ncol = 638),
2, snap_info$Age))
# Ϟσϧ࡞
model <- ergm( network ~ edges + edgecov(diff.age) + nodecov(“Age”) )