r - 如何获取频率数组并从WAV文件中提取频率范围

Question

readWave('hello.wav',from=0,to=1,units='seconds')
plot(hello@left,xlab="time",ylab="freq")  

但是如何在应用短时傅立叶变换之前获得频率阵列并在R中取出特定的频率范围呢？例如，成年男性为[60,300] Hz，另存为另一个波形。文件。

Answer 1

听起来您正在请求一个带通滤波器。软件包seewave具有合适的功能fir(and a lot of other useful things)。

library(tuneR)
library(seewave)

hello <- readWave("hello.wav")

hello.bp <- fir(hello, from=60, to=300, output="Wave")
hello.bp <- normalize(hello.bp, unit=as.character(hello.bp@bit))
meanspec(hello.bp, log="x")
writeWave(hello.bp, "hello.bp.wav")