# NOT RUN {
library(tuneR)
library(seewave)
Wave=readWave("MyWaveFile.wav")
if(Wave@samp.rate!=16000){
Wave=resamp(Wave,f=Wave@samp.rate,g=16000,output="Wave")
}
Cues=makeCues(Wave,IntensitySteps=5,Smooth=800)
# }
Run the code above in your browser using DataLab