# 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[13:15], nrow(X), replace = T)
X$indiv <- sample(letters[1:12], nrow(X), replace = T)
# 12 columns in 5 rows, 2 tags
catalog(X = X, 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 = X, 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 = X, 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