JNCC/MESO
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixes to weights and improve display readability

Browse Source
This commit is contained in:
Steve Pegg
2022-04-01 13:02:40 +01:00
parent 5fc290e832
commit 8089efc153
3 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
reWeight.R
View File

@@ -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=1)
newP <- reWeightLayer(p_on, fudge=2)
@@ -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=4)
newBA <- reWeightLayer(ba_impacted, fudge=2)
print("About to recalc op - es")
@@ -101,7 +101,7 @@ reWeightModel <- function(thisNet, pressStatus) {
dplyr::rename(es_code=output) %>%
tidyr::nest(data=c(op_code, values))
newOP <- reWeightLayer(op_impacted, fudge=4)
newOP <- reWeightLayer(op_impacted, fudge=2)
#Check for any more links through the system
print("About to recalc es - 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=2)
newES <- reWeightLayer(es_impacted, fudge=8)
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)