Ready for transfer to JNCC

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)