# NOT RUN {
#load data
data(list = c("Phae.long1", "Phae.long2", "Phae.long3", "Phae.long4", "lbh_selec_table"))
writeWave(Phae.long1, file.path(tempdir(), "Phae.long1.wav")) #save sound files
writeWave(Phae.long2, file.path(tempdir(), "Phae.long2.wav"))
writeWave(Phae.long3, file.path(tempdir(), "Phae.long3.wav"))
writeWave(Phae.long4, file.path(tempdir(), "Phae.long4.wav"))
# measure
df <- df_ts(X = lbh_selec_table, threshold = 10, img = FALSE, path = tempdir())
se <- se_ts(X = lbh_selec_table, threshold = 10, img = FALSE, path = tempdir())
# run function
multi_DTW(df, se)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab