diff options
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 |