diff --git a/MESO_names.xlsx b/MESO_names.xlsx
new file mode 100644
index 0000000..36b3b4f
Binary files /dev/null and b/MESO_names.xlsx differ
diff --git a/data/Sub_littoral_coarse_release_#2.xlsx b/data/Sub_littoral_coarse_release_#2.xlsx
index ecbe788..9cd6663 100644
Binary files a/data/Sub_littoral_coarse_release_#2.xlsx and b/data/Sub_littoral_coarse_release_#2.xlsx differ
diff --git a/data/Sub_littoral_mixed_release_#2.xlsx b/data/Sub_littoral_mixed_release_#2.xlsx
index f8228bd..a55c3ab 100644
Binary files a/data/Sub_littoral_mixed_release_#2.xlsx and b/data/Sub_littoral_mixed_release_#2.xlsx differ
diff --git a/data/Sub_littoral_mud_release_#2.xlsx b/data/Sub_littoral_mud_release_#2.xlsx
index 97a7886..39a135b 100644
Binary files a/data/Sub_littoral_mud_release_#2.xlsx and b/data/Sub_littoral_mud_release_#2.xlsx differ
diff --git a/data/Sub_littoral_rock_release_#2.xlsx b/data/Sub_littoral_rock_release_#2.xlsx
index 2c96ce7..258f6aa 100644
Binary files a/data/Sub_littoral_rock_release_#2.xlsx and b/data/Sub_littoral_rock_release_#2.xlsx differ
diff --git a/data/Sub_littoral_sand_release_#2.xlsx b/data/Sub_littoral_sand_release_#2.xlsx
index f78e647..0546b70 100644
Binary files a/data/Sub_littoral_sand_release_#2.xlsx and b/data/Sub_littoral_sand_release_#2.xlsx differ
diff --git a/reWeight.R b/reWeight.R
index 842ee10..78c85ed 100644
--- a/reWeight.R
+++ b/reWeight.R
@@ -69,7 +69,7 @@ reWeightModel <- function(thisNet, pressStatus) {
     dplyr::select(presscode, layer, ba_code,  values) %>%
     tidyr::nest(data=c(presscode, values))
 
-  newP <- reWeightLayer(p_on, fudge=2)
+  newP <- reWeightLayer(p_on, fudge=1)
 
 
 
@@ -86,7 +86,7 @@ reWeightModel <- function(thisNet, pressStatus) {
     dplyr::rename(op_code=output) %>%
     tidyr::nest(data=c(ba_code, values))
 
-  newBA <- reWeightLayer(ba_impacted, fudge=2)
+  newBA <- reWeightLayer(ba_impacted, fudge=4)
 
   print("About to recalc op - es")
 
@@ -117,7 +117,7 @@ reWeightModel <- function(thisNet, pressStatus) {
     dplyr::rename(lo_code=output) %>%
     tidyr::nest(data=c(lo_code, values))
 
-  newES <- reWeightLayer(es_impacted, fudge=8)
+  newES <- reWeightLayer(es_impacted, fudge=4)
 
   incode <- c(newP$presscode, newBA$ba_code, newOP$op_code, newES$es_code)
   outcode <- c(newP$ba_code, newBA$op_code, newOP$es_code, newES$lo_code)