# NOT RUN {
{
# First set temporary folder
setwd(tempdir())
# save wav file examples
data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "selec.table"))
writeWave(Phae.long1,"Phae.long1.wav")
writeWave(Phae.long2,"Phae.long2.wav")
writeWave(Phae.long3,"Phae.long3.wav")
specreator(selec.table, flim = c(0, 11), inner.mar = c(4,4.5,2,1), outer.mar = c(4,2,2,1),
picsize = 2, res = 300, cexlab = 2, mar = 0.05, wl = 300)
#go to the working directory and delete some images
#filter selection data frame
fmloc <- filtersels(X = selec.table)
#this data frame does not have the selections corresponding to the images that were deleted
fmloc
#now using lspec images
lspec(sxrow = 2, rows = 8, pal = reverse.heat.colors, wl = 300, ovlp = 10)
#go to the working directory and delete lspec images (the ones with several rows of spectrograms)
#filter selection data frame
}
# }
Run the code above in your browser using DataLab