x <- 'Shots were exchanged at the hospital'
mirror(x)
x <- c('Water', 'water', 'everywhere')
mirror(x)
# last value will return NA because the exponentiation does not
# make sense when written backwards
x <- c(3.14159, 2.71828, 6.02214076e+23)
mirror(x)
x <- data.frame(x=1:5, y=6:10)
mirror(x)
x <- matrix(1:10, nrow=2)
mirror(x)
Run the code above in your browser using DataLab