1 files changed, 24 insertions, 0 deletions
diff --git a/R Scripts/demographics.R b/R Scripts/demographics.R
new file mode 100644
index 0000000..349eda9
--- /dev/null
+++ b/R Scripts/demographics.R
@@ -0,0 +1,24 @@
+library(igraph)
+setwd('~/Documents/Violence Cascades/')
+load('Raw Data/lcc.RData')
+
+length(vic_ids)
+
+mean(lcc_verts$sex=="M")
+mean(lcc_verts$sex[vic_ids]=="M")
+
+mean(lcc_verts$race=="BLK")
+
+mean(lcc_verts$race %in% c("WHI", "WWH"))
+
+mean(lcc_verts$gang.member)
+
+d = degree(lcc)
+mean(d)
+
+vic_frac = rep(NA,vcount(lcc))
+for(i in 1:vcount(lcc)){
+  if (i %% 10000==0) print(i)
+  neighbors = unlist(neighborhood(lcc, nodes=i, order=2, mode='all'))[-1]
+  vic_frac[i] = sum(lcc_verts$vic[neighbors])/length(neighbors)
+}
+\ No newline at end of file