<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
        {font-family:"Cambria Math";
        panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Verdana;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0cm;
        margin-bottom:.0001pt;
        font-size:11.0pt;
        font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:#954F72;
        text-decoration:underline;}
.MsoChpDefault
        {mso-style-type:export-only;}
@page WordSection1
        {size:612.0pt 792.0pt;
        margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.WordSection1
        {page:WordSection1;}
--></style></head><body lang=ES link=blue vlink="#954F72"><div class=WordSection1><p class=MsoNormal>Estimado Javier Valdes Cantallopts</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Entonces sus datos son distintos, es una fecha mensual y a esa fecha tiene asociada la cantidad de precipitaciones mensuales correspondientes a ese mes más la suma de los meses anteriores, por lo cual en diciembre tiene el acumulado anual, que en sus datos son 250, y no es 250 en un año para diciembre y 50 para diciembre de otro año, y no 13 columnas como está en la tabla que envía donde hay doce meses más la columna de acumulados.</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Para graficar una forma sencilla a partir de la ayuda de Carlos Ortega, es a los datos de diff utilizarlos en xyplot (lattice), o a partir de datos con fechas (¿pero usted tiene fechas reales?)</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Javier Rubén Marcuzzi</p><p class=MsoNormal><o:p> </o:p></p><div style='mso-element:para-border-div;border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm'><p class=MsoNormal style='border:none;padding:0cm'><b>De: </b><a href="mailto:javier.valdes@mop.gov.cl">Javier Valdes Cantallopts (DGA)</a><br><b>Enviado: </b>jueves, 18 de mayo de 2017 13:44<br><b>Para: </b><a href="mailto:cof@qualityexcellence.es">Carlos Ortega</a><br><b>CC: </b><a href="mailto:r-help-es@r-project.org">r-help-es@r-project.org</a><br><b>Asunto: </b>Re: [R-es] PLOTEO DEL DATO MENSUAL DESDE EL ACUMULADO</p></div><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><span lang=ES-CL style='color:#1F497D'>Interesante.<o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL style='color:#1F497D'>Cada uno de los valores de mi tabla tiene asociada una fecha.<o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL style='color:#1F497D'>Se le podría asignar un  tipo de “break” ,para que le “diff” sea asociado a cada mes? Por ejemplo?<o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL style='color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span style='color:#1F497D'><img border=0 width=439 height=129 style='width:4.5729in;height:1.3437in' id="Imagen_x0020_1" src="cid:image001.png@01D2CFD4.357E1F00" alt="Descripción: FIRMA3"></span><span lang=ES-CL style='color:#1F497D'><o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL style='color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma",sans-serif'>De:</span></b><span style='font-size:10.0pt;font-family:"Tahoma",sans-serif'> Carlos Ortega [mailto:cof@qualityexcellence.es] <br><b>Enviado el:</b> jueves, 18 de mayo de 2017 12:35<br><b>Para:</b> Javier Valdes Cantallopts (DGA)<br><b>CC:</b> r-help-es@r-project.org<br><b>Asunto:</b> Re: PLOTEO DEL DATO MENSUAL DESDE EL ACUMULADO<o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL style='font-family:"Times New Roman",serif'><o:p> </o:p></span></p><div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>Hola,<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>Hay una función en "R" que permite hacer ese cálculo "diff()".<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>#---------------------<o:p></o:p></span></p></div><div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>> DF <- read.table(textConnection(val_cum), <a href="http://as.is">as.is</a> = TRUE)<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>> DF<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>    V1<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>1    1<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>2    5<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>3    8<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>4   10<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>5   20<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>6   30<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>7   50<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>8   80<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>9  120<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>10 125<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>11 200<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>12 250<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>> diff(DF$V1, 1)<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'> [1]  4  3  2 10 10 20 30 40  5 75 50<o:p></o:p></span></p></div></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>#---------------------<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>Saludos,<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>Carlos Ortega<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'><a href="http://www.qualiytexcellence.es">www.qualiytexcellence.es</a><o:p></o:p></span></p></div></div><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Times New Roman",serif'><o:p> </o:p></span></p><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Times New Roman",serif'>El 18 de mayo de 2017, 16:57, Javier Valdes Cantallopts (DGA) <<a href="mailto:javier.valdes@mop.gov.cl" target="_blank">javier.valdes@mop.gov.cl</a>> escribió:<o:p></o:p></span></p><div><div><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span lang=ES-CL style='font-family:"Times New Roman",serif'>Hola estimados:<o:p></o:p></span></p><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span lang=ES-CL style='font-family:"Times New Roman",serif'>He tratado de encontrar la mejor forma de automatizar un proceso de “datos mensuales de precipitación”.<o:p></o:p></span></p><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span lang=ES-CL style='font-family:"Times New Roman",serif'>El tema es que tengo solo la <b>serie acumulada anual de Pp</b>. Por ende, busco una forma de plotear un gráfico, <b>extrayendo “los datos mensuales desde el acumulado”</b><o:p></o:p></span></p><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span lang=ES-CL style='font-family:"Times New Roman",serif'>Ejemplo;<o:p></o:p></span></p><table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 width=583 style='width:437.0pt;border-collapse:collapse'><tr style='height:15.0pt'><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>ene</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>feb</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>mar</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>abr</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>may</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>jun</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>jul</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>ago</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>sep</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>oct</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>nov</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'>dic</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=183 nowrap valign=bottom style='width:137.0pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 3.5pt 0cm 3.5pt;height:15.0pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif;color:black'> </span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td></tr><tr style='height:18.75pt'><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-top:none;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>1</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>5</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>8</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>10</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>20</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>30</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>50</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>80</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>120</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>125</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>200</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><span style='font-family:"Times New Roman",serif;color:black'>250</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=183 nowrap valign=bottom style='width:137.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-size:14.0pt;font-family:"Times New Roman",serif;color:black'>Datos ACUMULADOS</span><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td></tr><tr style='height:18.75pt'><td width=33 nowrap valign=bottom style='width:25.0pt;border:solid windowtext 1.0pt;border-top:none;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>1</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>4</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>3</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>2</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>10</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>10</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>20</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>30</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>40</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>5</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>75</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=33 nowrap valign=bottom style='width:25.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:right'><b><span style='font-family:"Times New Roman",serif;color:black'>50</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td><td width=183 nowrap valign=bottom style='width:137.0pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:18.75pt'><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><b><span style='font-size:14.0pt;font-family:"Times New Roman",serif;color:black;background:yellow'>DATOS A PLOTEAR</span></b><span style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></td></tr></table><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span lang=ES-CL style='font-family:"Times New Roman",serif'> <o:p></o:p></span></p><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span lang=ES-CL style='font-family:"Times New Roman",serif'>He buscado por  time series y dapply, pero encuentro que son un poco engorrosos sus métodos.<o:p></o:p></span></p><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span lang=ES-CL style='font-family:"Times New Roman",serif'>Saludos a todos.<o:p></o:p></span></p><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span lang=ES-CL style='font-family:"Times New Roman",serif'> <o:p></o:p></span></p><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span style='font-family:"Times New Roman",serif'><img border=0 width=439 height=129 style='width:4.5729in;height:1.3437in' id="m_-2947205618584584014Imagen_x0020_1" src="cid:image001.png@01D2CFD4.357E1F00" alt="Descripción: FIRMA3"></span><span lang=ES-CL style='font-family:"Times New Roman",serif'><o:p></o:p></span></p><p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span lang=ES-CL style='font-family:"Times New Roman",serif'> <o:p></o:p></span></p></div><p class=MsoNormal><span lang=ES-CL style='font-family:"Times New Roman",serif'><o:p> </o:p></span></p><p class=MsoNormal align=center style='text-align:center'><span style='font-size:12.0pt;font-family:"Times New Roman",serif'><img border=0 width=708 height=2 style='width:7.375in;height:.0208in' id="Horizontal_x0020_Line_x0020_3" src="cid:image004.png@01D2CFE1.2029D790"></span><span lang=ES-CL style='font-size:12.0pt;font-family:"Times New Roman",serif'><o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL style='font-size:7.5pt;font-family:"Arial",sans-serif;color:gray'><br>CONFIDENCIALIDAD: La información contenida en este mensaje y/o en los archivos adjuntos es de carácter confidencial o privilegiada y está destinada al uso exclusivo del emisor y/o de la persona o entidad a quien va dirigida. Si usted no es el destinatario, cualquier almacenamiento, divulgación, distribución o copia de esta información está estrictamente prohibido y sancionado por la ley. Si recibió este mensaje por error, por favor infórmenos inmediatamente respondiendo este mismo mensaje y borre todos los archivos adjuntos. Gracias.<br><br>CONFIDENTIAL NOTE: The information transmitted in this message and/or attachments is confidential and/or privileged and is intented only for use of the person or entity to whom it is addressed. If you are not the intended recipient, any retention, dissemination, distribution or copy of this information is strictly prohibited and sanctioned by law. If you received this message in error, please reply us this same message and delete this message and all attachments. Thank you.</span><span lang=ES-CL style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></div></div><p class=MsoNormal><span lang=ES-CL style='font-family:"Times New Roman",serif'><br><br clear=all><o:p></o:p></span></p><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Times New Roman",serif'><o:p> </o:p></span></p></div><p class=MsoNormal><span lang=ES-CL style='font-family:"Times New Roman",serif'>-- <o:p></o:p></span></p><div><p class=MsoNormal><span lang=ES-CL style='font-family:"Verdana",sans-serif'>Saludos,<br>Carlos Ortega<br><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span><span lang=ES-CL style='font-family:"Times New Roman",serif'><o:p></o:p></span></p></div></div><p class=MsoNormal><span lang=ES-CL style='font-size:12.0pt'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt'><img border=0 width=708 height=1 style='width:7.375in;height:.0104in' id="Horizontal_x0020_Line_x0020_4" src="cid:image005.png@01D2CFE1.2029D790"></span><span lang=ES-CL style='font-size:12.0pt'><o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL style='font-size:7.5pt;font-family:"Arial",sans-serif;color:gray'><br>CONFIDENCIALIDAD: La información contenida en este mensaje y/o en los archivos adjuntos es de carácter confidencial o privilegiada y está destinada al uso exclusivo del emisor y/o de la persona o entidad a quien va dirigida. Si usted no es el destinatario, cualquier almacenamiento, divulgación, distribución o copia de esta información está estrictamente prohibido y sancionado por la ley. Si recibió este mensaje por error, por favor infórmenos inmediatamente respondiendo este mismo mensaje y borre todos los archivos adjuntos. Gracias.<br><br>CONFIDENTIAL NOTE: The information transmitted in this message and/or attachments is confidential and/or privileged and is intented only for use of the person or entity to whom it is addressed. If you are not the intended recipient, any retention, dissemination, distribution or copy of this information is strictly prohibited and sanctioned by law. If you received this message in error, please reply us this same message and delete this message and all attachments. Thank you.</span><span lang=ES-CL style='font-size:12.0pt'><o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Times New Roman",serif'><o:p> </o:p></span></p></div></body></html>