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

# 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
Commit	Line	Data
b7cd987d BA	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