diff options
| author | Ben Green <bgreen@g.harvard.edu> | 2015-09-26 20:45:23 -0400 |
|---|---|---|
| committer | Ben Green <bgreen@g.harvard.edu> | 2015-09-26 20:45:23 -0400 |
| commit | fdaeb646dc262807b7bca60354649e15baa60d31 (patch) | |
| tree | e4a03242ed6c0e318a63e382003c0afbc268ec5f /R Scripts/demographics.R | |
| parent | 82bcc4121025f1212b3fcc07224cababa410f32a (diff) | |
| download | criminal_cascades-fdaeb646dc262807b7bca60354649e15baa60d31.tar.gz | |
stats
Diffstat (limited to 'R Scripts/demographics.R')
| -rw-r--r-- | R Scripts/demographics.R | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/R Scripts/demographics.R b/R Scripts/demographics.R index 196d485..b199d29 100644 --- a/R Scripts/demographics.R +++ b/R Scripts/demographics.R @@ -34,10 +34,10 @@ mean(d[-vic_ids]) is_vic = lcc_verts$vic vic_nbrs = function(neighbors){ mean(is_vic[neighbors[-1]]) } -nbrs = neighborhood(lcc, order=1) +nbrs = neighborhood(lcc, order=2) vic_frac = lapply(nbrs, vic_nbrs) vic_frac = unlist(vic_frac) -mean(vic_frac) -mean(vic_frac[vic_ids]) -mean(vic_frac[-vic_ids]) +mean(vic_frac)*100 +mean(vic_frac[vic_ids])*100 +mean(vic_frac[-vic_ids])*100 |