# NOT RUN {
# Set temporary working directory
setwd(tempdir())
# save sound file examples
data(list = c("Phae.long1", "Phae.long2"))
writeWave(Phae.long1,"Phae.long1.wav")
writeWave(Phae.long2,"Phae.long2.wav")
lspec(sxrow = 2, rows = 8, pal = reverse.heat.colors, wl = 300, it = "jpeg")
#now create single pdf removing jpeg
lspec2pdf(keep.jpeg = FALSE)
check this floder
getwd()
# }
Run the code above in your browser using DataLab