This file summarizes the supplementary analyses and results for the paper “A Topography of Fears and Phobias: Network Analysis of 21 Phobic Fears in an Epidemiological Sample of Adult Twins”, by Kenneth S. Kendler, Steve Aggen, Marlene Werner, and Eiko I. Fried. For questions, feel free to reach out (eikofried@gmail.com).
I omit much of the code here to keep this document clean. You can find the full code in the supplementary materials of this paper.
Last udpate: September 22 2020.
par(mfrow=c(1,3))
g2 <- plot(n2, layout=g2$layout, legend=FALSE, vsize=9, legend=FALSE, title="GGM")
g3 <- plot(n3, layout=g2$layout, legend=FALSE, vsize=9, legend=FALSE, title="thresholded GGM")
g4 <- plot(n4, layout=g2$layout, legend=FALSE, vsize=9, legend=FALSE, title="ggmModSelect")