f442a449484c1c2f78e2c46ab4f2985c3ee00dab
[epclust.git] / epclust / 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