powered by
rot13(string)
citation("seqinr")
chartr
## ## 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