{
# load data and save to temporary working directory
data("lbh1", "lbh2")
tuneR::writeWave(lbh1, file.path(tempdir(), "lbh1.wav"))
tuneR::writeWave(lbh2, file.path(tempdir(), "lbh2.wav"))
# split files in 1 s files
split_acoustic_data(sgmt.dur = 1, path = tempdir())
# Check this folder
tempdir()
}
Run the code above in your browser using DataLab