library(sound)
media_dir <- file.path(Sys.getenv("SYSTEMROOT"), "Media")
chimes <- loadSample(file.path(media_dir, "chimes.wav"))
chord <- loadSample(file.path(media_dir, "chord.wav"))


play(appendSample(chimes, chord))


play(chimes + chord)


play(cutSample(chimes, 0, 0.2))


for(i in 1:3) play(chimes)                 

three_chimes <- lapply(vector(3, mode = "list"), function(x) chimes)
play(do.call(appendSample, three_chimes))  


play(3 * chimes)


play(stereo(chimes, chord))