Wish Christmas with R |

**Method 1 : ****Run the following program and see what I mean –**

paste(intToUtf8(acos(log(1))*180/pi-13),

toupper(substr(month.name[2],2,2)),

paste(rep(intToUtf8(acos(exp(0)/2)*180/pi+2^4+3*2),2), collapse = intToUtf8(0)),

LETTERS[5^(3-1)], intToUtf8(atan(1/sqrt(3))*180/pi+2),

toupper(substr(month.abb[10],2,2)),

intToUtf8(acos(log(1))*180/pi-(2*3^2)),

toupper(substr(month.name[4],3,4)),

intToUtf8(acos(exp(0)/2)*180/pi+2^4+3*2+1),

intToUtf8(acos(exp(0)/2)*180/pi+2^4+2*4),

intToUtf8(acos(log(1))*180/pi-13),

LETTERS[median(0:2)],

intToUtf8(atan(1/sqrt(3))*180/pi*3-7),

sep = intToUtf8(0)

)

**Method 2 : Audio Wish for Christmas**

*Turn on computer speakers before running the code.*

install.packages(“audio”)

library(audio)

christmas_file <- tempfile()

download.file(“https://sites.google.com/site/pocketecoworld/merrychristmas1.wav”, christmas_file, mode = “wb”)

xmas <- load.wave(christmas_file)

play(xmas)