## Not run: ------------------------------------
# # Set temporary working directory
# setwd(tempdir())
# # save sound file examples
# data(list = c("Phae.long1", "Phae.long2","selec.table"))
# writeWave(Phae.long1,"Phae.long1.wav")
# writeWave(Phae.long2,"Phae.long2.wav")
# writeWave(Phae.long3,"Phae.long3.wav")
# writeWave(Phae.long4,"Phae.long4.wav")
#
#
# catalog(X = selec.table, flim = c(1, 10), nrow = 4, ncol = 2, same.time.scale = T,
# ovlp = 90, parallel = 1, mar = 0.01, wl = 200, gr = FALSE,
# orientation = "v", labels = c("sound.files", "selec"), legend = 0)
#
# #different time scales and tag palette
# catalog(X = selec.table, flim = c(1, 10), nrow = 4, ncol = 2, same.time.scale = F,
# ovlp = 90, parallel = 1, mar = 0.01, wl = 200,
# orientation = "v", labels = c("sound.files", "selec"), legend = 0,
# tag.pal = list(terrain.colors))
# #'
# #adding tags and changing spectro palette
# catalog(X = selec.table, flim = c(1, 10), nrow = 4, ncol = 2, same.time.scale = F,
# ovlp = 90, parallel = 1, mar = 0.01, wl = 200, pal = reverse.heat.colors,
# orientation = "v", labels = c("sound.files", "selec"), legend = 1,
# tag.pal = list(terrain.colors), tags = "sound.files")
#
# #create a bigger selection table
# X <- rbind(selec.table, selec.table, selec.table, selec.table)
# X <- rbind(X, X)
#
# #create some simulated labels
# X$songtype <- sample(letters[1:3], nrow(X), replace = T)
# X$indiv <- sample(letters[1:12], nrow(X), replace = T)
#
# # 12 columns in 5 rows, 2 tags
# catalog(X = selec.table, flim = c(1, 10), nrow = 5, ncol = 12, same.time.scale = F,
# ovlp = 90, parallel = 1, mar = 0.01, wl = 200,
# orientation = "v", labels = c("sound.files", "selec"), legend = 3,
# collev = seq(-65, 0, 5), tag.pal = list(terrain.colors), tags = c("songtype", "indiv"))
#
#
# # with legend
# catalog(X = selec.table, flim = c(1, 10), nrow = 5, ncol = 12, same.time.scale = F,
# ovlp = 90, parallel = 1, mar = 0.01, wl = 200, gr = FALSE,
# orientation = "v", labels = c("sound.files", "selec"), legend = 3,
# width = 20, collev = seq(-65, 0, 5), tag.pal = list(terrain.colors),
# tags = c("songtype", "indiv"))
#
# #' horizontal orientation
# catalog(X = selec.table, flim = c(1, 10), nrow = 5, ncol = 12, same.time.scale = F,
# ovlp = 90, parallel = 1, mar = 0.01, wl = 200, gr = FALSE,
# orientation = "h", labels = c("sound.files", "selec"), legend = 3,
# width = 20, collev = seq(-65, 0, 5), tag.pal = list(terrain.colors),
# tags = c("songtype", "indiv"))
# check this floder
# getwd()
## ---------------------------------------------
Run the code above in your browser using DataLab