feat: speed up VGEST calculation

- Change default behavior for `vgest_write_batch` Refs #20

feat: speed up VGEST calculation
- Change default behavior for `vgest_write_batch` Refs #20
42a1802d · Dorchies David · 8397d8e6 · 42a1802d
Commit 42a1802d authored Mar 30, 2021 by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

R/vgest_write_batch.R R/vgest_write_batch.R +1 -1

No files found.
--- a/R/vgest_write_batch.R
+++ b/R/vgest_write_batch.R
@@ -64,7 +64,7 @@ vgest_write_batch <- function(reservoirRuleSet, networkSet,
                              vgest_location = "../vgest",
                              objective_file = "BATCH",
                              formatResult = 1,
-                              subPrograms = 1) {
+                              subPrograms = 2) {

  if(distributionType %in% c(1, 4, 5) & is.null(distributionOption)) {
    stop("distribution should be defined for distributionType = 1, 4 or 5")