powered by
powspec(x, sr = 8000, wintime = 0.025, steptime = 0.01, dither = FALSE)
specgram
testsound <- normalize(sine(400) + sine(1000) + square(250), "16") pspectrum <- powspec(testsound@left, testsound@samp.rate)
Run the code above in your browser using DataLab