merge with remote

[epclust.git] / pkg / tests / testthat / helper-common.R

diff --git a/pkg/tests/testthat/helper-common.R b/pkg/tests/testthat/helper-common.R
new file mode 100644 (file)
index 0000000..f442a44
--- /dev/null
+++ b/pkg/tests/testthat/helper-common.R
@@ -0,0 +1,3 @@
+# Shorthand: map 1->1, 2->2, 3->3, 4->1, ..., 149->2, 150->3, ... (if base==3)
+I = function(i, base)
+       (i-1) %% base + 1