diff options
| -rw-r--r-- | R Scripts/demographics.R | 8 | ||||
| -rw-r--r-- | supplements/Hawkes SM.docx | bin | 0 -> 28237 bytes |
2 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 diff --git a/supplements/Hawkes SM.docx b/supplements/Hawkes SM.docx Binary files differnew file mode 100644 index 0000000..aeb65fe --- /dev/null +++ b/supplements/Hawkes SM.docx |