# NOT RUN {
# First set temporary folder
setwd(tempdir())
#load data
data(selection.files)
write.table(selection.files[[3]],file = "harpyeagle.wav.txt",row.names = FALSE,
col.names = FALSE, sep= "\t")
write.table(selection.files[[4]],file = "Phae.long4.wav.txt",row.names = FALSE,
col.names = FALSE, sep= "\t")
syr.dat<-imp.syrinx(all.data = FALSE)
View(syr.dat)
#getting all the data
syr.dat<-imp.syrinx(all.data = TRUE)
View(syr.dat)
# }
Run the code above in your browser using DataLab