# NOT RUN {
  testsound <- normalize(sine(400) + sine(1000) + square(250), "16")
  pspectrum <- powspec(testsound@left, testsound@samp.rate)
  aspectrum <- audspec(pspectrum, testsound@samp.rate)
  cepstra <- spec2cep(aspectrum$aspectrum)
# }
Run the code above in your browser using DataLab