<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;}
/* 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 Cantallopts</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Lo que escribe Carlos es correcto, pero le envío lo siguiente <a href="https://www.tutorialspoint.com/r/r_decision_making.htm">https://www.tutorialspoint.com/r/r_decision_making.htm</a> porque hay diagramas con if, if anidados y case, tres formas que permiten solucionar ese tipo de problemas (entre otras alternativas).</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Javier Ruben 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:cof@qualityexcellence.es">Carlos Ortega</a><br><b>Enviado: </b>jueves, 20 de abril de 2017 18:09<br><b>Para: </b><a href="mailto:javier.valdes@mop.gov.cl">Javier Valdes Cantallopts (DGA)</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] FUNCION "SI" en R</p></div><p class=MsoNormal><o:p> </o:p></p><div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>Hola,<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>Esta es una forma:<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>#---------------<o:p></o:p></span></p></div><div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>df <- data.frame(</span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'> a = rnorm(10),</span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'> b = rnorm(10),</span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'> c = rnorm(10)</span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'> )</span></p></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>my_nam <- names(df)</span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>my_new_nam <- ifelse(my_nam == "a", "nuevo_a", ifelse(my_nam == "b", "nuevo_b", ifelse( my_nam == "c", "nuevo_c", my_nam )) )</span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>my_new_nam</span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>names(df) <- my_new_nam</span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>#---------------<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>Saludos,<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>Carlos Ortega<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a><o:p></o:p></span></p></div></div><div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal>El 20 de abril de 2017, 22:48, Javier Valdes Cantallopts (DGA) <<a href="mailto:javier.valdes@mop.gov.cl" target="_blank">javier.valdes@mop.gov.cl</a>> escribió:</p><blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-right:0cm'><div><div><p class=MsoNormal><span lang=ES-CL>Hola a todos<o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL>Primero que todo, gracias por todos los consejos, me han servido ene.<o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL> <o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL>Mi pregunta es la siguiente:<o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL>Como armar una función lógica “SI” PARA CAMBIAR LOS NOMBRES A LOS HEADER <o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL>Por ejemplo, si tengo una tabla así;<o:p></o:p></span></p><table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 style='border-collapse:collapse'><tr><td width=150 valign=top style='width:112.2pt;border:solid windowtext 1.0pt;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>a</p></td><td width=150 valign=top style='width:112.2pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>b</p></td><td width=150 valign=top style='width:112.25pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>c</p></td><td width=150 valign=top style='width:112.25pt;border:solid windowtext 1.0pt;border-left:none;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>d</p></td></tr><tr><td width=150 valign=top style='width:112.2pt;border:solid windowtext 1.0pt;border-top:none;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>1</p></td><td width=150 valign=top style='width:112.2pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>3</p></td><td width=150 valign=top style='width:112.25pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>4</p></td><td width=150 valign=top style='width:112.25pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>6</p></td></tr><tr><td width=150 valign=top style='width:112.2pt;border:solid windowtext 1.0pt;border-top:none;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>2</p></td><td width=150 valign=top style='width:112.2pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>4</p></td><td width=150 valign=top style='width:112.25pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>6</p></td><td width=150 valign=top style='width:112.25pt;border-top:none;border-left:none;border-bottom:solid windowtext 1.0pt;border-right:solid windowtext 1.0pt;padding:0cm 5.4pt 0cm 5.4pt'><p class=MsoNormal>7</p></td></tr></table><p class=MsoNormal><span lang=ES-CL> <o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL>a= “pluvio mensual”<o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL>b= “carga de batería”<o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL>c= “temperatura”<o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL>d= “radiación”. <o:p></o:p></span></p><p class=MsoNormal><i><span lang=ES-CL>La idea es reemplazar, en el caso que el HEADER sea (a), QUE EL NOMBRE DEL HEADER CAMBIE A “PLUVIO MENSUAL”</span></i><span lang=ES-CL><o:p></o:p></span></p><p class=MsoNormal><i><span lang=ES-CL> </span></i><span lang=ES-CL><o:p></o:p></span></p><p class=MsoNormal><b><span lang=ES-CL>Se me ocurre DAR UNA INSTRUCCIÓN TIPO COLNAMES<-¿</span></b><span lang=ES-CL><o:p></o:p></span></p><p class=MsoNormal><b><span lang=ES-CL>Espero sus respuestas, saludos.</span></b><span lang=ES-CL><o:p></o:p></span></p><p class=MsoNormal style='line-height:200%'><i><span lang=ES-CL> </span></i><span lang=ES-CL><o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL> <o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL> <o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL> <o:p></o:p></span></p><p class=MsoNormal><img border=0 width=439 height=129 style='width:4.5729in;height:1.3437in' id="m_4186108692144381813Imagen_x0020_1" src="cid:image001.png@01D2B9FB.B3CE3050" alt="Descripción: FIRMA3"><span lang=ES-CL><o:p></o:p></span></p><p class=MsoNormal><span lang=ES-CL> <o:p></o:p></span></p></div><p class=MsoNormal><span lang=ES-CL><o:p> </o:p></span></p><p class=MsoNormal><img border=0 width=702 height=1 style='width:7.3125in;height:.0104in' id="Horizontal_x0020_Line_x0020_2" src="cid:image002.png@01D2BA08.E86518D0"><span lang=ES-CL><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><o:p></o:p></span></p></div></blockquote></div><p class=MsoNormal><br><br clear=all></p><div><p class=MsoNormal><o:p> </o:p></p></div><p class=MsoNormal>-- </p></div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>Saludos,<br>Carlos Ortega<br><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span></p><p class=MsoNormal><o:p> </o:p></p></div></body></html>