<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>Hola Carlos buenos días:<div><br></div><div>Como ves he reproducido (más o menos) el gráfico en R, en principio no conozco qué ecuación estás utilizando, a nivel de reproducir, si no ofreces más datos del problema, que sepas que sí se puede hacer. Te paso el código con lo que he montado tu problema:</div><div><br></div><div><div>#Estos 2 parámetros define como quieres tu ruido</div><div>Interpola_Ruido = 100</div><div>Intensidad_Ruido = 0.2</div><div><br></div><div>t <- 0:Interpola_Ruido</div><div>t <- t/(Interpola_Ruido / 10)</div><div><br></div><div>#Construyo la función lineal</div><div>y <- 0.4 * t - 1</div><div><br></div><div>#Meto un salto en la función lineal</div><div>y <- ifelse(t >= 6, y = y - 2, y)</div><div><br></div><div>#Intoduzco un ruido blanco. Se puede pensar si se quiere con</div><div>#alguna dependencia temporal, pero voy a lo sencillo</div><div>set.seed(1)</div><div>y_ruido = y + Intensidad_Ruido * rnorm((Interpola_Ruido + 1))</div><div><br></div><div>#Preparo los datos para su representación</div><div>conjunto <- cbind(y,y_ruido)</div><div><br></div><div>#Represento las 2 series simultaneamente</div><div>matplot (t, conjunto, type = "l")</div><div><br></div><div><br></div><div>help(matplot)</div><div><br></div><div><br></div><div><br></div><div>Por supuesto, este código es generalizable para que se pueda "jugar" con muchas señales y características asociadas a esta y muy posiblemente haya algún paquete relacionado con el problema, aunque en principio lo desconozco.</div><div><br></div><div>Para montar, este ejemplo en concreto, no hace falta más que el R básico, pero posiblemente alguien informe mejor si hay algo específico al respecto</div><div><br></div><div>Un saludo</div><br><div><hr id="stopSpelling">Date: Wed, 5 Nov 2014 16:46:53 -0500<br>Subject: Re: [R-es] Agregar ruido a una serie de tiempo<br>From: caaperezan@gmail.com<br>To: fjroar@hotmail.com<br>CC: r-help-es@r-project.org<br><br><div dir="ltr"><div>Algo asi quisiera</div><div>Es propable agregar ruido a una señal o serie de tiempo? Con algun paquete R</div><div><br></div><img src="http://www.mathworks.com/help/comm/ref/awgnplot.gif"><br><div><br></div><div>CARLOS ANDRES</div></div><div class="ecxgmail_extra"><br><div class="ecxgmail_quote">El 5 de noviembre de 2014, 10:20, Carlos Andres Perez Angarita <span dir="ltr"><<a href="mailto:caaperezan@gmail.com" target="_blank">caaperezan@gmail.com</a>></span> escribió:<br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr">Muchas gracias francisco, por su aporte y colaboracion, mi objetivo es modificar una serie de tiempo, y al agregarle ruido con el objetivo de generar dispersion cuando realize PCA (Analisis de componentes principales), de este modo las muestras se disperzan<div><br></div><div>CARLOS ANDRES</div></div><div class="ecxgmail_extra"><br><div class="ecxgmail_quote">El 5 de noviembre de 2014, 8:13, Francisco Rodríguez <span dir="ltr"><<a href="mailto:fjroar@hotmail.com" target="_blank">fjroar@hotmail.com</a>></span> escribió:<div><div class="h5"><br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex;">
<div><div dir="ltr">Bueno, realmente no es necesaria que la serie esté centrada en este caso, ya que estoy sumando un ruído blanco<div><br></div><div>Un saludo<br><br><div>From: <a href="mailto:fjroar@hotmail.com" target="_blank">fjroar@hotmail.com</a><br>To: <a href="mailto:caaperezan@gmail.com" target="_blank">caaperezan@gmail.com</a>; <a href="mailto:r-help-es@r-project.org" target="_blank">r-help-es@r-project.org</a><br>Date: Wed, 5 Nov 2014 13:00:49 +0000<br>Subject: Re: [R-es] Agregar ruido a una serie de tiempo<br><br><pre>Hola buenos d�as:<br>Yo cuando he tenido que hacer estos trabajos, lo que hac�a era coger la serie temporal como un vector y constru�a un vector aleatorio de igual longitud con una distribuci�n dada, por ejemplo generando n�meros seg�n una normal 0, sigma (si la serie est� centrada en 0) y la sumaba directamente<span><br>Te remito un ejemplo trivial para ver si he entendido realmente la pregunta<br>t = 1:50y1 <- cos(t)mu = mean(y1)<br></span>#Serie c�clica centrada en 0y1 = y1-mua <- 0.3*rnorm(20)<br>#Serie con ruido normal de intensidad 0.3y2 <- y1 + aplot (y1, type="l", col = "blue")plot (y2, type="l", col = "blue")<span><br>Un saludo<br>> Date: Wed, 5 Nov 2014 07:45:22 -0500<br>> From: <a href="mailto:caaperezan@gmail.com" target="_blank">caaperezan@gmail.com</a><br>> To: <a href="mailto:r-help-es@r-project.org" target="_blank">r-help-es@r-project.org</a><br>> Subject: [R-es] Agregar ruido a una serie de tiempo<br>> <br>> Es posible agregar ruido a una serie de tiempo<br>> <br>> Tengo series de tiempo que tienen un comportamiento funcional, quisiera<br></span>> agregar ruido para que parezcan se�ales mas reales. Normalmente las series<span><br>> de tiempo se suavizan a traves de filtros, es posible hacer el proceso<br>> inverso con algun paquete de R<br>> <br></span>> Gracias por la atenci�n<span><br>> <br>> CARLOS ANDRES PEREZ<br>> <br>> [[alternative HTML version deleted]]<br>> <br>> _______________________________________________<br>> R-help-es mailing list<br>> <a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a><br>> <a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br> <br> [[alternative HTML version deleted]]<br> <br></span></pre><span><br>_______________________________________________
R-help-es mailing list
<a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a></span></div></div> </div></div>
</blockquote></div></div></div><br></div>
</blockquote></div><br></div></div></div> </div></body>
</html>