map a value onto others
map(x, each)
x
vector
each
number of cuts
## Not run: map(1:10, 3) m <- matrix(1:12, ncol = 4) for (i in 1:12) { print(m[ring(i, 3), map(i, 4)]) } ## End(Not run)