## synthesize schwa-like vowel
#vowel = vowelsynth (ffs = c(500,1500,2500,3500,4500))$sound
## compare window lengths
#par (mfrow = c(3,1))
#spectralslice (vowel[500:550], fs = 10000)
#spectralslice (vowel[500:1000], fs = 10000)
## line spectrum
#spectralslice (vowel[500:600], padding = 0, line = TRUE, fs = 10000)
Run the code above in your browser using DataLab