powered by
rot13 applied to the above title returns the string "Returns the ROT-13 ciphering of a string".
rot13(string)
a string of characters.
citation("seqinr")
chartr
# NOT RUN { ## ## Simple ciphering of a string: ## message <- "Hello, world!" rot13(message) # "Uryyb, jbeyq!" ## ## Routine sanity check: ## stopifnot(identical(rot13(rot13(message)), message)) # }
Run the code above in your browser using DataLab