<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:"Trebuchet MS";
panose-1:2 11 6 3 2 2 2 2 2 4;}
@font-face
{font-family:"Lucida Console";
panose-1:2 11 6 9 4 5 4 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
span.gmailsignatureprefix
{mso-style-name:gmail_signature_prefix;}
span.EstiloCorreo21
{mso-style-type:personal-compose;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri",sans-serif;
mso-ligatures:none;
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="ES" link="blue" vlink="purple" style="word-wrap:break-word">
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:14.0pt;color:#1F497D;mso-fareast-language:EN-US">Gracias Carlos.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:14.0pt;color:#1F497D;mso-fareast-language:EN-US">Yo también he visto el ejemplo que te pone chatGPT, pero la salida que te da no soy capaz de interpretarla.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:14.0pt;color:#1F497D;mso-fareast-language:EN-US">Os paso las ordenes y las respuestas de R de la propuesta de chatGPT<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:14.0pt;color:#1F497D;mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:blue">Ejemplo.aov<- aov(P~TRAT+CORTE+REP)<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:blue">> summary (Ejemplo.aov)<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">
</span><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">Df Sum Sq Mean Sq F value Pr(>F)
<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">TRAT 6 0.0028 0.00046 0.777 0.590
<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">CORTE 2 0.5022 0.25110 424.542 <2e-16 ***<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">REP 4 0.0026 0.00066 1.117 0.353
<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">Residuals 92 0.0544 0.00059
<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">---<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:blue">> confianza_nueva <- 0.85<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:blue">> intervalos_confianza <- confint(Ejemplo.aov, level = confianza_nueva)<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:blue">> print(intervalos_confianza)<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm"> 7.5 % 92.5 %<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">(Intercept) 0.211291874 0.2361366979<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">TRATCP -0.022891346 0.0028913463<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">TRATCPR -0.007558013 0.0182246797<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">TRATCR -0.008224680 0.0175580130<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">TRATP -0.007558013 0.0182246797<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">TRATR -0.011558013 0.0142246797<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">TRATT -0.008224680 0.0175580130<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">CORTEC2 -0.065010796 -0.0481320614<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">CORTEC3 -0.175010796 -0.1581320614<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">REP2 -0.022323748 -0.0005333952<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">REP3 -0.019466605 0.0023237476<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span lang="IT" style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">REP4 -0.025180890 -0.0033905381<o:p></o:p></span></p>
<p class="MsoNormal" style="background:white;word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black;border:none windowtext 1.0pt;padding:0cm">REP5 -0.023276129 -0.0014857762</span><span style="font-size:10.0pt;font-family:"Lucida Console";color:black"><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:14.0pt;color:#1F497D;mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:14.0pt;color:#1F497D;mso-fareast-language:EN-US">He puesto 0,85 porque me piden una significación del 0.15%<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:14.0pt;color:#1F497D;mso-fareast-language:EN-US">Ya me diréis.<o:p></o:p></span></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"> </span></b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#1F497D">Un saludo.<o:p></o:p></span></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Juan Bautista Relloso Barrio<o:p></o:p></span></b></p>
<p class="MsoNormal" style="mso-margin-top-alt:4.85pt;margin-right:42.55pt;margin-bottom:0cm;margin-left:0cm;margin-bottom:.0001pt">
<span style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-fareast-language:EN-US">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-right:42.55pt"><span lang="IT" style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-fareast-language:EN-US">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-top:4.2pt;line-height:150%"><span style="color:#1F497D"><a href="mailto:jbautista@neiker.eus"><span lang="IT" style="font-family:"Trebuchet MS",sans-serif">jbautista@neiker.eus
</span></a></span><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">| M. 688 62 98 14
</span><span lang="IT" style="font-size:10.0pt;line-height:150%;font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p></o:p></span></p>
<p class="MsoNormal" style="margin-top:4.2pt;line-height:200%"><span style="color:#1F497D"><a href="http://www.neiker.eus/"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">www.neiker.eus</span></b></a></span><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">
</span></b><a href="https://www.linkedin.com/company/neiker/"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="13" height="15" style="width:.1333in;height:.1583in" id="Imagen_x0020_22" src="cid:image001.png@01DA1C7E.2D2DE350"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://twitter.com/neiker_BRTA"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="19" height="15" style="width:.2in;height:.1583in" id="Imagen_x0020_23" src="cid:image002.png@01DA1C7E.2D2DE350"></span></b></a><a href="https://www.facebook.com/neikerBRTA"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="17" height="15" style="width:.175in;height:.1583in" id="Imagen_x0020_24" src="cid:image003.png@01DA1C7E.2D2DE350"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://www.youtube.com/user/neikertec"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="20" height="15" style="width:.2083in;height:.1583in" id="Imagen_x0020_25" src="cid:image004.png@01DA1C7E.2D2DE350"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="300" height="43" style="width:3.125in;height:.45in" id="Imagen_x0020_26" src="cid:image005.png@01DA1C7E.2D2DE350"> <img border="0" width="98" height="54" style="width:1.0166in;height:.5666in" id="Imagen_x0020_27" src="cid:image006.jpg@01DA1C7E.2D2DE350" alt="ej_ekonomia_garapen_lateral"> </span></b><span style="color:#1F497D"> <img border="0" width="40" height="58" style="width:.4166in;height:.6in" id="Imagen_x0020_28" src="cid:image007.jpg@01DA1C7E.2D2DE350" alt="https://www.emakunde.euskadi.eus/contenidos/informacion/violencia_puntolila/eu_def/adjuntos/punto.lila.jpg"></span><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p> </o:p></span></b></p>
<p class="MsoNormal"><span style="color:#1F497D"><a href="https://neiker.eus/eu/pribatutasun-politika/"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">PRIBATUTASUN POLITIKA</span></a></span><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><span style="color:#1F497D"><a href="https://neiker.eus/es/politica-privacidad/"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">POLÍTICA DE PRIVACIDAD</span></a></span><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><span style="color:#1F497D"><a href="https://neiker.eus/en/privacy-policy/"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">LEGAL NOTICE</span></a></span><u><span style="font-size:6.0pt;color:#55555B"><o:p></o:p></span></u></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"> </span></b><span style="color:#1F497D;mso-ligatures:standardcontextual"> </span><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"><o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"><o:p> </o:p></span></b></p>
<p class="MsoNormal"><span style="font-size:14.0pt;color:#1F497D;mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b>De:</b> Carlos Ortega <cof@qualityexcellence.es> <br>
<b>Enviado el:</b> martes, 21 de noviembre de 2023 12:05<br>
<b>Para:</b> Relloso Barrio, Juan Bautista <jbautista@neiker.eus><br>
<b>CC:</b> r-help-es@r-project.org<br>
<b>Asunto:</b> Re: [R-es] Cambiar el intervalo de confianza en un anova<o:p></o:p></p>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Hola Juan,<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">¿Qué tal?<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Cuando preguntas a chatGPT por esto, te ofrece los intervalos de confianza a un nivel de significación de 0.90 para los coeficientes, pero te advierte que si se quiere considerar
otro nivel de significación dentro del análisis ANOVA hay que tener otro enfoque, que aunque le preguntes no termina de aclarar.<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">#---------- COEFICIENTES --------------<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"># Primero, cargamos tus datos y la librería necesaria<br>
# tus_datos <- read.csv("ruta/a/tus/datos.csv")<br>
<br>
# Luego, realizamos el ANOVA con la función aov()<br>
# Aquí 'respuesta' es tu variable dependiente y 'factor1' y 'factor2' son tus variables independientes<br>
modelo <- aov(respuesta ~ factor1 + factor2, data = tus_datos)<br>
<br>
# Después de ajustar el modelo, puedes obtener los intervalos de confianza para los coeficientes<br>
# Aquí especificamos un nivel de confianza del 90% con 'level = 0.90'<br>
confint(modelo, level = 0.90)<br>
<br>
# Nota: Este código cambiará los intervalos de confianza para los coeficientes del modelo.<br>
# No afecta directamente las pruebas de significación (como las pruebas F) que son parte del output estándar de ANOVA.<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">#------------------------------------------<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Gracias,<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Carlos Ortega<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a><o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<div>
<p class="MsoNormal">El mar, 21 nov 2023 a las 8:47, Relloso Barrio, Juan Bautista (<<a href="mailto:jbautista@neiker.eus">jbautista@neiker.eus</a>>) escribió:<o:p></o:p></p>
</div>
<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>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:14.0pt;color:#1F497D">Buenos días.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:14.0pt;color:#1F497D">Normalmente por defecto, todos los ANOVAS (análisis de varianza) que he realizado han sido con un intervalo de confianza del 95%.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:14.0pt;color:#1F497D">¿Cuál sería la orden que debería introducir si deseo modificar ese 95% y, por ejemplo, bajarlo a un 90%?</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:14.0pt;color:#1F497D">Muchas gracias.</span><o:p></o:p></p>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#1F497D">Un
saludo.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Juan Bautista Relloso Barrio</span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;margin-right:42.55pt"><span style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;margin-right:42.55pt;mso-margin-bottom-alt:auto">
<span lang="IT" style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-top:4.2pt;mso-margin-bottom-alt:auto;line-height:150%">
<span style="color:#1F497D"><a href="mailto:jbautista@neiker.eus" target="_blank"><span lang="IT" style="font-family:"Trebuchet MS",sans-serif">jbautista@neiker.eus
</span></a></span><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">| M. 688 62 98 14
</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-top:4.2pt;mso-margin-bottom-alt:auto;line-height:200%">
<span style="color:#1F497D"><a href="http://www.neiker.eus/" target="_blank"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">www.neiker.eus</span></b></a></span><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">
</span></b><a href="https://www.linkedin.com/company/neiker/" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="13" height="14" style="width:.1333in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_22" src="cid:image001.png@01DA1C7E.2D2DE350"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://twitter.com/neiker_BRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="19" height="14" style="width:.2in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_23" src="cid:image002.png@01DA1C7E.2D2DE350"></span></b></a><a href="https://www.facebook.com/neikerBRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="18" height="14" style="width:.1833in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_24" src="cid:image003.png@01DA1C7E.2D2DE350"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://www.youtube.com/user/neikertec" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="20" height="14" style="width:.2083in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_25" src="cid:image004.png@01DA1C7E.2D2DE350"></span></b></a><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="300" height="43" style="width:3.125in;height:.45in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_26" src="cid:image005.png@01DA1C7E.2D2DE350"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="98" height="54" style="width:1.0166in;height:.5666in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_27" src="cid:image006.jpg@01DA1C7E.2D2DE350" alt="ej_ekonomia_garapen_lateral"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><span style="color:#1F497D"> <img border="0" width="40" height="58" style="width:.4166in;height:.6in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_28" src="cid:image007.jpg@01DA1C7E.2D2DE350" alt="https://www.emakunde.euskadi.eus/contenidos/informacion/violencia_puntolila/eu_def/adjuntos/punto.lila.jpg"></span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="color:#1F497D"><a href="https://neiker.eus/eu/pribatutasun-politika/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">PRIBATUTASUN
POLITIKA</span></a></span><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> |
</span><span style="color:#1F497D"><a href="https://neiker.eus/es/politica-privacidad/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">POLÍTICA DE PRIVACIDAD</span></a></span><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><span style="color:#1F497D"><a href="https://neiker.eus/en/privacy-policy/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">LEGAL NOTICE</span></a></span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><span style="color:#1F497D"> </span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><o:p></o:p></p>
</div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:14.0pt;color:#1F497D"> </span><o:p></o:p></p>
<div>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b>De:</b> R-help-es <<a href="mailto:r-help-es-bounces@r-project.org" target="_blank">r-help-es-bounces@r-project.org</a>>
<b>En nombre de </b>Relloso Barrio, Juan Bautista<br>
<b>Enviado el:</b> miércoles, 11 de octubre de 2023 10:32<br>
<b>Para:</b> <a href="mailto:r-help-es@r-project.org" target="_blank">r-help-es@r-project.org</a><br>
<b>Asunto:</b> Re: [R-es] Hacer un Split plot<o:p></o:p></p>
</div>
</div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt">Buenos días.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt">Perdón por insistir. Quiero hacer un ANOVA para unos datos que tienen un diseño Split plot.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt">Y estoy utilizando dos editores diferentes, que, si todo fuera correcto y ya que toman los mismos datos, me debería dar el mismo resultado, … pero
no es así.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt">Querría saber si básicamente los dos hacen un análisis de varianza SPLIT PLOT ?. Y el mismo análisis?</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt">Los comandos que doy son estos:</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt">CEPAS, es el nombre del archivo de datos.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt;color:#4472C4">model<-with(CEPAS, sp.plot(REP, CEPA, VARIEDAD, trAUDPC))</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt">Y el otro es este</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt;color:#4472C4">model2.aov<- aov(trAUDPC~CEPA*VARIEDAD+REP+Error(REP/CEPA))</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt"> </span><o:p></o:p></p>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif">Un saludo.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Juan Bautista Relloso Barrio</span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;margin-right:42.55pt"><span style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;margin-right:42.55pt;mso-margin-bottom-alt:auto">
<span lang="IT" style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-top:4.2pt;mso-margin-bottom-alt:auto;line-height:150%">
<a href="mailto:jbautista@neiker.eus" target="_blank"><span lang="IT" style="font-family:"Trebuchet MS",sans-serif">jbautista@neiker.eus
</span></a><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">| M. 688 62 98 14
</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-top:4.2pt;mso-margin-bottom-alt:auto;line-height:200%">
<a href="http://www.neiker.eus/" target="_blank"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">www.neiker.eus</span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">
</span></b><a href="https://www.linkedin.com/company/neiker/" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="13" height="14" style="width:.1333in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_15" src="cid:image001.png@01DA1C7E.2D2DE350"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://twitter.com/neiker_BRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="19" height="14" style="width:.2in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_16" src="cid:image002.png@01DA1C7E.2D2DE350"></span></b></a><a href="https://www.facebook.com/neikerBRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="18" height="14" style="width:.1833in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_17" src="cid:image003.png@01DA1C7E.2D2DE350"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://www.youtube.com/user/neikertec" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="20" height="14" style="width:.2083in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_18" src="cid:image004.png@01DA1C7E.2D2DE350"></span></b></a><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="300" height="43" style="width:3.125in;height:.45in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_19" src="cid:image005.png@01DA1C7E.2D2DE350"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="98" height="54" style="width:1.0166in;height:.5666in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_20" src="cid:image006.jpg@01DA1C7E.2D2DE350" alt="ej_ekonomia_garapen_lateral"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b> <img border="0" width="40" height="58" style="width:.4166in;height:.6in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_21" src="cid:image007.jpg@01DA1C7E.2D2DE350" alt="https://www.emakunde.euskadi.eus/contenidos/informacion/violencia_puntolila/eu_def/adjuntos/punto.lila.jpg"><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><a href="https://neiker.eus/eu/pribatutasun-politika/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">PRIBATUTASUN POLITIKA</span></a><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><a href="https://neiker.eus/es/politica-privacidad/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">POLÍTICA DE PRIVACIDAD</span></a><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><a href="https://neiker.eus/en/privacy-policy/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">LEGAL NOTICE</span></a><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><o:p></o:p></p>
</div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:13.0pt"> </span><o:p></o:p></p>
<div>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b>De:</b> R-help-es <<a href="mailto:r-help-es-bounces@r-project.org" target="_blank">r-help-es-bounces@r-project.org</a>>
<b>En nombre de </b>Relloso Barrio, Juan Bautista<br>
<b>Enviado el:</b> viernes, 22 de septiembre de 2023 16:18<br>
<b>Para:</b> <a href="mailto:r-help-es@r-project.org" target="_blank">r-help-es@r-project.org</a><br>
<b>Asunto:</b> [R-es] no encuentro el error<o:p></o:p></p>
</div>
</div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Buenas tardes.<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Intento hacer la separación de medias “por tratamientos”<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Pero me da un error que no consigo corregir. No sé que hago mal. Os paso los comandos y el error<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"># Separación de medias HSD por Tratamiento No funciona<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">by(pppp, pppp$TRAT, function(x) {<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">
<span lang="IT">anova_result <- aov(RTOSE ~ CORTE, data = x)</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT">
</span>HSD_result <- HSD.test(anova_result)<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> Tratamiento <- unique(x$TRAT)<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> return(list(Tratamiento = TRAT, HSD_result = HSD_result))<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">})<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Y el error es este:<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:10.0pt;font-family:"Lucida Console";color:#C5060B;background:#E6E6E6">Error in pmatch(trt, names(A)) :
</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:10.0pt;font-family:"Lucida Console";color:#C5060B;background:#E6E6E6">argument "trt" is missing, with no default</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif">Un saludo.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Juan Bautista Relloso Barrio</span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;margin-right:42.55pt"><span style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;margin-right:42.55pt;mso-margin-bottom-alt:auto">
<span lang="IT" style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-top:4.2pt;mso-margin-bottom-alt:auto;line-height:150%">
<a href="mailto:jbautista@neiker.eus" target="_blank"><span lang="IT" style="font-family:"Trebuchet MS",sans-serif">jbautista@neiker.eus
</span></a><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">| M. 688 62 98 14
</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-top:4.2pt;mso-margin-bottom-alt:auto;line-height:200%">
<a href="http://www.neiker.eus/" target="_blank"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">www.neiker.eus</span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">
</span></b><a href="https://www.linkedin.com/company/neiker/" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="13" height="14" style="width:.1333in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_8" src="cid:image001.png@01DA1C7E.2D2DE350"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://twitter.com/neiker_BRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="19" height="14" style="width:.2in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_9" src="cid:image002.png@01DA1C7E.2D2DE350"></span></b></a><a href="https://www.facebook.com/neikerBRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="18" height="14" style="width:.1833in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_10" src="cid:image003.png@01DA1C7E.2D2DE350"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://www.youtube.com/user/neikertec" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="20" height="14" style="width:.2083in;height:.15in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_11" src="cid:image004.png@01DA1C7E.2D2DE350"></span></b></a><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="300" height="43" style="width:3.125in;height:.45in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_12" src="cid:image005.png@01DA1C7E.2D2DE350"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="98" height="54" style="width:1.0166in;height:.5666in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_13" src="cid:image006.jpg@01DA1C7E.2D2DE350" alt="ej_ekonomia_garapen_lateral"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b> <img border="0" width="40" height="58" style="width:.4166in;height:.6in" id="m_8218374569007904706m_-1574093001419127328Imagen_x0020_14" src="cid:image007.jpg@01DA1C7E.2D2DE350" alt="https://www.emakunde.euskadi.eus/contenidos/informacion/violencia_puntolila/eu_def/adjuntos/punto.lila.jpg"><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><a href="https://neiker.eus/eu/pribatutasun-politika/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">PRIBATUTASUN POLITIKA</span></a><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><a href="https://neiker.eus/es/politica-privacidad/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">POLÍTICA DE PRIVACIDAD</span></a><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><a href="https://neiker.eus/en/privacy-policy/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">LEGAL NOTICE</span></a><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b>De:</b> Carlos Ortega <<a href="mailto:cof@qualityexcellence.es" target="_blank">cof@qualityexcellence.es</a>>
<br>
<b>Enviado el:</b> lunes, 18 de septiembre de 2023 23:04<br>
<b>Para:</b> Relloso Barrio, Juan Bautista <<a href="mailto:jbautista@neiker.eus" target="_blank">jbautista@neiker.eus</a>><br>
<b>CC:</b> <a href="mailto:r-help-es@r-project.org" target="_blank">r-help-es@r-project.org</a><br>
<b>Asunto:</b> Re: [R-es] Boxplot ordenados...<o:p></o:p></p>
</div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Hola Juan,</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Sí, te recomiendo que uses la librería "ggeasy" que simplifica mucho estas modificaciones, mejor que trabajar directamente
con "ggplot".</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Sería así:</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">#-------------</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Verdana",sans-serif;color:red">library(ggeasy)</span></b><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">ggplot(data = AÑOS, aes(x = VARIEDAD, y = rAUDPCor, colour = ANO,</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">
</span><span lang="IT" style="font-size:12.0pt;font-family:"Verdana",sans-serif">group = ANO)) +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT" style="font-size:12.0pt;font-family:"Verdana",sans-serif"> stat_summary(fun = mean, geom = "point") +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT" style="font-size:12.0pt;font-family:"Verdana",sans-serif"> stat_summary(fun = mean, geom = "line") +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT" style="font-size:12.0pt;font-family:"Verdana",sans-serif">
</span><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">labs(y = 'mean rAUDPCor') +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"> labs(x = 'Variety') +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"> theme_bw() +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">easy_rotate_x_labels( angle = 90)</span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"> </span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">#------------</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Gracias,</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Carlos Ortega</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span><o:p></o:p></p>
</div>
</div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">El lun, 18 sept 2023 a las 22:47, Relloso Barrio, Juan Bautista (<<a href="mailto:jbautista@neiker.eus" target="_blank">jbautista@neiker.eus</a>>) escribió:<o:p></o:p></p>
</div>
<blockquote style="border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt">
<div>
<div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Buenas noches.<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Quisiera saber si alguien me puede decir como en estos comandos para un gráfico …<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">ggplot(data = AÑOS, aes(x = VARIEDAD, y = rAUDPCor, colour = ANO,<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">
<span lang="IT">group = ANO)) +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT"> stat_summary(fun = mean, geom = "point") +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT"> stat_summary(fun = mean, geom = "line") +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT">
</span>labs(y = 'mean rAUDPCor') +<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> labs(x = 'Variety') +<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> theme_bw()<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Qué debo de añadir para que la orientación de las los nombres de las variedades del eje “X” me aparezcan en vertical en vez de en horizontal.<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Muchas gracias.<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif">Un saludo.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Juan Bautista Relloso Barrio</span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;margin-right:42.55pt;mso-margin-bottom-alt:auto">
<span style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;margin-right:42.55pt;mso-margin-bottom-alt:auto">
<span lang="IT" style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-top:4.2pt;mso-margin-bottom-alt:auto;line-height:150%">
<a href="mailto:jbautista@neiker.eus" target="_blank"><span lang="IT" style="font-family:"Trebuchet MS",sans-serif">jbautista@neiker.eus
</span></a><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">| M. 688 62 98 14
</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-top:4.2pt;mso-margin-bottom-alt:auto;line-height:200%">
<a href="http://www.neiker.eus/" target="_blank"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">www.neiker.eus</span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">
</span></b><a href="https://www.linkedin.com/company/neiker/" target="_blank"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"> </span></b><span style="color:windowtext;text-decoration:none"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><u><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">PRIBATUTASUN POLITIKA</span></u><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><u><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">POLÍTICA DE PRIVACIDAD</span></u><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> |
</span><u><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">LEGAL NOTICE</span></u><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
</span>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="color:windowtext;text-decoration:none">_______________________________________________<br>
R-help-es mailing list<br>
<u><span style="color:blue">R-help-es@r-project.org</span></u><br>
<u><span style="color:blue">https://stat.ethz.ch/mailman/listinfo/r-help-es</span></u><o:p></o:p></span></p>
</a>
<p></p>
</div>
</div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><a href="https://www.linkedin.com/company/neiker/" target="_blank"><span style="color:windowtext;text-decoration:none"><br clear="all">
<br>
-- <o:p></o:p></span></a></p>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-family:"Verdana",sans-serif"><a href="https://www.linkedin.com/company/neiker/" target="_blank"><span style="color:windowtext;text-decoration:none">Saludos,<br>
Carlos Ortega<br>
<u><span style="color:blue">www.qualityexcellence.es</span></u></span><span style="font-family:"Calibri",sans-serif;color:windowtext;text-decoration:none"><o:p></o:p></span></a></span></p>
</div>
</div>
</blockquote>
<p class="MsoNormal"><a href="https://www.linkedin.com/company/neiker/" target="_blank"><span style="color:windowtext;text-decoration:none">_______________________________________________<br>
R-help-es mailing list<br>
<u><span style="color:blue">R-help-es@r-project.org</span></u><br>
<u><span style="color:blue">https://stat.ethz.ch/mailman/listinfo/r-help-es</span></u><o:p></o:p></span></a></p>
</div>
</div>
</div>
<p class="MsoNormal"><a href="https://www.linkedin.com/company/neiker/" target="_blank"><span style="color:windowtext;text-decoration:none"><br clear="all">
<o:p></o:p></span></a></p>
<div>
<p class="MsoNormal"><a href="https://www.linkedin.com/company/neiker/" target="_blank"><span style="color:windowtext;text-decoration:none"><o:p> </o:p></span></a></p>
</div>
<p class="MsoNormal"><span class="gmailsignatureprefix"><a href="https://www.linkedin.com/company/neiker/" target="_blank"><span style="color:windowtext;text-decoration:none">--
</span><span style="color:windowtext;text-decoration:none"><o:p></o:p></span></a></span></p>
<div>
<p class="MsoNormal"><span style="font-family:"Verdana",sans-serif"><a href="https://www.linkedin.com/company/neiker/" target="_blank"><span style="color:windowtext;text-decoration:none">Saludos,<br>
Carlos Ortega<br>
<u><span style="color:blue">www.qualityexcellence.es</span></u></span><span style="font-family:"Calibri",sans-serif;color:windowtext;text-decoration:none"><o:p></o:p></span></a></span></p>
</div>
</div>
</blockquote>
</div>
</div>
</body>
</html>