From 9350ee2c6359562a23cf8efdefdd7de80b2a682e Mon Sep 17 00:00:00 2001 From: Ben Green Date: Sat, 1 Aug 2015 12:01:19 -0400 Subject: minor updates --- R Scripts/demographics.R | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 R Scripts/demographics.R (limited to 'R Scripts/demographics.R') 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 -- cgit v1.2.3-70-g09d2