Пакет 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")
РЕДАКТИРОВАТЬ: я понял, что метод выше не генерирует вектор (до). Брутальный способ конвертировать его в вектор - добавить код ниже:
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
![enter image description here](https://i.stack.imgur.com/EFvae.png)