Generalized Rot13 Character Translation (Rotation)
Compute generalized ‘rot13’ character translations or “rotations”
In the distant past, considered as poor man's encryption, such rotations are way too poor nowadays and provided mainly for didactical reasons.
rotn(ch, n = 13)
ch |
a |
n |
an integer in {1...26}; the default is particularly useful. |
Note that the default n = 13 makes rotn into
a function that is its own inverse.
Written after having searched for it and found
seqinr::rot13() which was generalized and rendered more
transparently to my eyes.
Martin Maechler
rot2, a completely different rotation (namely in the
plane aka R^2).
rotn(c("ABC", "a","b","c"), 1)
rotn(c("ABC", "a","b","c"), 2)
rotn(c("ABC", "a","b","c"), 26) # rotation by 26 does not change much
(ch <- paste("Hello", c("World!", "you too")))
rotn(ch)
rotn( rotn(ch ) ) # rotn(*, 13) is its own inversePlease choose more modern alternatives, such as Google Chrome or Mozilla Firefox.