#First create empty folder
setwd(tempdir())
data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4", "manualoc.df"))
writeWave(Phae.long1,"Phae.long1.wav")
writeWave(Phae.long2,"Phae.long2.wav")
writeWave(Phae.long3,"Phae.long3.wav")
writeWave(Phae.long4,"Phae.long4.wav")
seltailor(X = manualoc.df, flim = c(1,12), wl = 300, auto.next = FALSE)
# need to use the buttoms to manipulate function
# Read output .csv file
seltailor.df <- read.csv("seltailor_output.csv")
seltailor.df
# check this directory for .csv file after stopping function
getwd()
Run the code above in your browser using DataLab