Commit 5b8842db authored by LDalby's avatar LDalby
Browse files

Fix index bug

parent 7fc04207
......@@ -62,7 +62,7 @@ seq(1, 10, length.out = nsteps) %>%
GenerateParams("GOOSE_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
# Startno scaler - maize rotation 191 ----
wdpath <- path(pathtodirs, dirs[1])
wdpath <- path(pathtodirs, dirs[2])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
......@@ -71,7 +71,7 @@ replace_rotation(new_rot = "UserDefinedFarm191.rot",
wd_path = wdpath)
# Startno scaler - maize rotation 192 ----
wdpath <- path(pathtodirs, dirs[1])
wdpath <- path(pathtodirs, dirs[3])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
......@@ -80,7 +80,7 @@ replace_rotation(new_rot = "UserDefinedFarm192.rot",
wd_path = wdpath)
# Startno scaler - maize rotation 193 ----
wdpath <- path(pathtodirs, dirs[1])
wdpath <- path(pathtodirs, dirs[4])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
......@@ -89,13 +89,13 @@ replace_rotation(new_rot = "UserDefinedFarm193.rot",
wd_path = wdpath)
# Startno scaler - standard maize ----
wdpath <- path(pathtodirs, dirs[1])
wdpath <- path(pathtodirs, dirs[5])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
# BN Startno scaler - maize rotation 191 ----
wdpath <- path(pathtodirs, dirs[1])
wdpath <- path(pathtodirs, dirs[6])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
......@@ -104,7 +104,7 @@ replace_rotation(new_rot = "UserDefinedFarm191.rot",
wd_path = wdpath)
# BN Startno scaler - maize rotation 192 ----
wdpath <- path(pathtodirs, dirs[1])
wdpath <- path(pathtodirs, dirs[7])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
......@@ -113,7 +113,7 @@ replace_rotation(new_rot = "UserDefinedFarm192.rot",
wd_path = wdpath)
# BN Startno scaler - maize rotation 193 ----
wdpath <- path(pathtodirs, dirs[1])
wdpath <- path(pathtodirs, dirs[8])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment