2012-01-02 8 views

Respuesta

8

paquete tuneR tiene noise función que puede generar un objeto de onda que es ya sea blanco o rosa ruido:

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") 

EDIT: I dio cuenta de que el método anterior no genera el vector (DOH). de manera brutal para convertirlo en el vector es añadir el código de abajo:

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

+4

no es 'p @ left' suficiente para hacer un vector? (No puedo verificar debido a la falla de CRAN). – mbq

+0

Sí @mbq 'p @ left' funciona bien. Gran pista. –

+0

Recién salido de interés, ¿cómo se escribiría una función de ruido de "color" generalizada, es decir, suprimir regiones arbitrarias del ancho de banda? Ese podría ser un proyecto de Año Nuevo agradable para un R-nerd :-) –