如何在R中模擬粉紅噪聲

Question

我知道可以通過將rnorm()的輸出視爲時間序列來實現白噪聲。有關如何模擬粉紅噪聲的建議？

Answer 1

tuneR包具有noise功能，可產生一個波對象，它是白色或粉紅噪聲：

require(tuneR) 
w <- noise(kind = c("white")) 
p <- noise(kind = c("pink")) 
par(mfrow=c(2,1)) 
plot(w,main="white noise") 
plot(p,main="pink noise") 

編輯：我意識到，上述方法不產生向量（DOH）。將其轉換成矢量殘酷的方法是添加下面的代碼：

writeWave(p,"p.wav")#writes pink noise on your hard drive 
require(audio)#loads `audio` package to use `load.wave` function 
p.vec <- load.wave("path/to/p.wav")#this will load pink noise as a vector