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

Ready for transfer to JNCC

Browse Source
This commit is contained in:
Steve Pegg
2022-04-07 09:10:15 +01:00
parent 8089efc153
commit f46587f9d7
7 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
MESO_names.xlsx Normal file
View File

Binary file not shown.

BIN
data/Sub_littoral_coarse_release_#2.xlsx
View File

Binary file not shown.

BIN
data/Sub_littoral_mixed_release_#2.xlsx
View File

Binary file not shown.

BIN
data/Sub_littoral_mud_release_#2.xlsx
View File

Binary file not shown.

BIN
data/Sub_littoral_rock_release_#2.xlsx
View File

Binary file not shown.

BIN
data/Sub_littoral_sand_release_#2.xlsx
View File

Binary file not shown.

6
reWeight.R
View File

@@ -69,7 +69,7 @@ reWeightModel <- function(thisNet, pressStatus) {
dplyr::select(presscode, layer, ba_code, values) %>% dplyr::select(presscode, layer, ba_code, values) %>%
tidyr::nest(data=c(presscode, 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) %>% dplyr::rename(op_code=output) %>%
tidyr::nest(data=c(ba_code, values)) 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") print("About to recalc op - es")
@@ -117,7 +117,7 @@ reWeightModel <- function(thisNet, pressStatus) {
dplyr::rename(lo_code=output) %>% dplyr::rename(lo_code=output) %>%
tidyr::nest(data=c(lo_code, values)) 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) 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) outcode <- c(newP$ba_code, newBA$op_code, newOP$es_code, newES$lo_code)