testsound <- normalize(sine(400) + sine(1000) + square(250), "16")
pspectrum <- powspec(testsound@left, [email protected])
aspectrum <- audspec(pspectrum, [email protected])$aspectrum
lpcas <- dolpc(aspectrum, 10)
Run the code above in your browser using DataLab