fix indexing of transfers, intervals in multi_modal calc

UrbanAnalyst · May 2, 2023 · 16d9ad5 · 16d9ad5
1 parent deabb28
commit 16d9ad5
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: m4ra
 Title: Many-to-Many Multi-Modal Routing Aggregator
-Version: 0.1.0.200
+Version: 0.1.0.201
 Authors@R: 
     person(given = "Mark",
            family = "Padgham",

diff --git a/R/times-multi-modal.R b/R/times-multi-modal.R
@@ -162,8 +162,8 @@ m4ra_times_multi_mode <- function (net_sc = NULL,
     # res is then 3 matrices of (times, transfers, intervals)
     index <- seq_len (nverts_out)
     res_times <- res [, index]
-    res_intervals <- res [, index + nverts_out]
-    res_transfers <- res [, index + 2 * nverts_out]
+    res_transfers <- res [, index + nverts_out]
+    res_intervals <- res [, index + 2 * nverts_out]
 
     maxr <- rcpp_matrix_max (res_times)
     res_times [res_times == maxr] <- NA_integer_

diff --git a/codemeta.json b/codemeta.json
@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/ATFutures/m4ra",
   "issueTracker": "https://github.com/ATFutures/m4ra/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.0.200",
+  "version": "0.1.0.201",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",