## 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)
# ## End(Not run)
Run the code above in your browser using DataLab