First commit
[epclust.git] / pkg / tests / testthat / helper-common.R
1 # Shorthand: map 1->1, 2->2, 3->3, 4->1, ..., 149->2, 150->3, ... (if base==3)
2 I = function(i, base)
3 (i-1) %% base + 1