# First create empty folder
dir.create(file.path(getwd(),"temp"))
setwd(file.path(getwd(),"temp"))
# save sound file examples
data(list = c("Arre.aura", "Phae.cuvi"))
data(manualoc.df)
writeWave(Arre.aura,"Arre.aura.wav")
writeWave(Phae.cuvi,"Phae.cuvi.wav")
lspec(sxrow = 2, rows = 8, pal = reverse.heat.colors)
lspec(sxrow = 2, rows = 8, X = manualoc.df, pal = reverse.heat.colors) #including selections
#remove example directory
unlink(getwd(),recursive = TRUE)
Run the code above in your browser using DataLab