From aeb724088c4dee80dbaa1c472012fd628886d95f Mon Sep 17 00:00:00 2001
From: robinlovelace <rob00x@gmail.com>
Date: Mon, 18 Mar 2019 12:15:44 +0000
Subject: [PATCH] Update rnets code

---
 07b.3-regional-rnets.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/07b.3-regional-rnets.R b/07b.3-regional-rnets.R
index cc5781e..4059e42 100644
--- a/07b.3-regional-rnets.R
+++ b/07b.3-regional-rnets.R
@@ -47,7 +47,7 @@ hist(rnet_new1$dutch_slc)
 purpose = "school"
 geography = "lsoa" 
 
-k = which(r$region_name == "avon")
+k = which(r$region_name == "london")
 for(k in 1:nrow(r)) {
     rmini = rnet[r[k,], ]
     r_spatial = as(rmini, "Spatial")
@@ -56,7 +56,7 @@ for(k in 1:nrow(r)) {
     s_new / 1e6 
     if(s_new > 50000000) {
       print("reducing rnet size")
-      rmini_spatial = rmini_spatial[rmini_spatial$dutch_slc >= 50, ] 
+      rmini_spatial = rmini_spatial[rmini_spatial$dutch_slc >= 100, ] 
     } 
     # else if(s_new > 70000000) {
     #   print("reducing rnet size")