<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
<br>Ok <div><br></div><div>Mesmo,assim vou dar uma olhada. obrigado pela sugestão Alisson.</div><div><br></div><div>Att.</div><div><br></div><div>Tiago.</div><div><br></div><div> <br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">Date: Mon, 19 Nov 2012 18:15:39 -0800<br>From: alissonluc@yahoo.com.br<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: Re: [R-br] Experimento fatorial. Desdobramento<br><br><div style="color:#000;background-color:#fff;font-family:times new roman, new york, times, serif;font-size:12pt"><div><span>desculpa, enviei errado.</span></div><div></div><div> </div><div><font face="times new roman, new york, times, serif">Alisson Lucrécio da Costa</font><br></div> <div style="font-family:'times new roman', 'new york', times, serif;font-size:12pt"> <div style="font-family:'times new roman', 'new york', times, serif;font-size:12pt"> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold">From:</span></b> tiago souza marçal <tiagosouzamarcal@hotmail.com><br> <b><span style="font-weight:bold">To:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight:bold">Sent:</span></b> Monday, November 19, 2012 9:09 PM<br> <b><span style="font-weight:bold">Subject:</span></b> Re: [R-br] Experimento fatorial. Desdobramento<br> </font> </div> <br>
<div id="ecxyiv409858492">
<style><!--
.ExternalClass #ecxyiv409858492 .ecxyiv409858492hmmessage P
{padding:0px;}
.ExternalClass #ecxyiv409858492 body.ecxyiv409858492hmmessage
{font-size:10pt;font-family:Tahoma;}
--></style>
<div><div dir="ltr">
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span lang="EN-US" style="font-size:10.0pt;line-height:150%">Estes são os dados. Qualquer duvida eu estou a disposição. </span></div><div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span lang="EN-US" style="font-size:10.0pt;line-height:150%">K A bloc rg ts nvi nv</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 37.5 1 14.55 136 22 56</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 37.5 1 21.51 159 2 62</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 37.5 1 24.62 156 0 66</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 37.5 1 21.88 171 2 68</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 37.5 1 28.11 190 0 82</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 50 1 17.16 140 20 63</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 50 1 24.44 193 6 86</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 50 1 28.5 200 6 94</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 50 1 32.94 208 7 86</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 50 1 28.76 237 10 97</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 62.5 1 14.13 132 23 58</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 62.5 1 19.71 178 10 80</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 62.5 1 31.05 231 5 99</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 62.5 1 38.35 271 0 110</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 62.5 1 36.97 262 1 106</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 37.5 2 15.72 120 22 48</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 37.5 2 19.72 146 0 64</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 37.5 2 24.29 159 1 62</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 37.5 2 25.39 152 0 60</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 37.5 2 28.45 159 0 62</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 50 2 15.44 124 12 52</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 50 2 28.12 239 9 103</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 50 2 31.49 248 4 103</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 50 2 29.95 190 1 87</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 50 2 30.06 240 4 101</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 62.5 2 15.42 140 14 64</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 62.5 2 23.68 167 7 77</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 62.5 2 33.27 237 3 96</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 62.5 2 36.63 240 1 94</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 62.5 2 41.04 248 0 105</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 37.5 3 12.77 106 4 44</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 37.5 3 20.45 157 3 63</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 37.5 3 24.35 204 1 84</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 37.5 3 27.15 169 0 66</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 37.5 3 24.08 147 1 58</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 50 3 16.01 133 22 56</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 50 3 24.57 199 7 81</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 50 3 28.85 211 3 92</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 50 3 26.23 223 7 91</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 50 3 26.36 261 5 100</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 62.5 3 16.08 128 21 50</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 62.5 3 20.99 164 9 71</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 62.5 3 30.45 216 3 94</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 62.5 3 36.83 215 2 89</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 62.5 3 34.6 228 2 89</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 37.5 4 14.26 125 11 60</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 37.5 4 23.71 185 7 75</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 37.5 4 22.76 159 1 67</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 37.5 4 22.46 176 2 76</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 37.5 4 22.97 154 1 63</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 50 4 15.54 133 27 51</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 50 4 18.48 149 4 60</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 50 4 25.54 170 1 67</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 50 4 30.29 215 2 90</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 50 4 30.64 186 4 80</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 62.5 4 17.26 147 18 62</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 62.5 4 20.51 154 10 67</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 62.5 4 24.47 179 2 75</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 62.5 4 34.52 229 0 90</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 62.5 4 37.62 216 1 87</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 37.5 5 10.3 92 5 36</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 37.5 5 16.28 133 5 57</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 37.5 5 23.61 139 2 53</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 37.5 5 29.66 166 0 69</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 37.5 5 23.34 128 1 50</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 50 5 14.41 131 26 57</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 50 5 17.24 150 1 61</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 50 5 29.08 218 4 92</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 50 5 29.52 236 1 96</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 50 5 27.98 261 4 110</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">0 62.5 5 17.56 150 17 69</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">30 62.5 5 20.05 156 13 63</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">60 62.5 5 29.9 215 3 95</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">120 62.5 5 33.21 128 0 55</span></div>
<div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">180 62.5 5 35.5 208 2 90</span></div><div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%"><br></span></div><div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">Att.</span></div><div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%"><br></span></div><div class="ecxyiv409858492MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;text-align:justify;line-height:150%"><span style="font-size:10.0pt;line-height:150%">Tiago.</span></div><br><div><div id="ecxyiv409858492SkyDrivePlaceholder"></div><hr id="ecxyiv409858492stopSpelling">From: sznelwar@uol.com.br<br>To: tiagosouzamarcal@hotmail.com<br>Subject: Fw: [R-br] Experimento fatorial. Desdobramento<br>Date: Mon, 19 Nov 2012 20:07:34 -0200<br><br>
<style><!--
.ExternalClass #ecxyiv409858492 .ecxyiv409858492ExternalClass .ecxyiv409858492ecxhmmessage P
{padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px;}
.ExternalClass #ecxyiv409858492 .ecxyiv409858492ExternalClass BODY.ecxyiv409858492ecxhmmessage
{font-family:Tahoma;font-size:10pt;}
--></style>
<div><font face="Arial"></font><font color="#0000ff" size="3" face="Arial">Poderia
enviar este arquivo UFPR1.txt, eu não estou conseguindo entrar na página do
LEG.</font></div>
<div><font face="Arial"></font> </div>
<div><font face="Arial"></font> </div>
<div><br></div>
<div dir="ltr">Só completando, o pacote ExpDes é a maneira mais fácil, mas
caso você queira fazer da forma que esta fazendo é só utilizar os seguintes
comandos:
<div><br></div>
<div><font face="Courier New">rend<-read.table("C:\\Program
Files\\R\\RDADOS\\UFPR1.txt",h=T)</font></div>
<div><span style="font-family:'Courier New';font-size:10pt">attach(rend)</span></div>
<div>
<div><font face="Courier New">A<-factor(A)</font></div>
<div><font face="Courier New">K<-factor(K)</font></div></div>
<div><font face="Courier New">bloc<-factor(bloc)</font></div>
<div><span style="font-family:'Courier New';font-size:10pt">m1 <-
aov(rg~bloc+A/K)</span></div>
<div><span style="line-height:115%;font-family:'Courier New';font-size:10pt" lang="EN-US">KinA<-sapply(paste("A",levels(A),sep=""),simplify=F,grep,x=names(coef(m1)[m1$assign==3]))</span></div>
<div><span style="line-height:115%;font-family:'Courier New';font-size:10pt" lang="EN-US">
<div style="text-align:justify;line-height:150%;margin-bottom:0pt" class="ecxyiv409858492ecxMsoNormal"><span style="line-height:150%;font-size:10pt" lang="EN-US">DesKinA<-summary(m1, split=list("A:K"=KinA))</span></div>
<div style="text-align:justify;line-height:150%;margin-bottom:0pt" class="ecxyiv409858492ecxMsoNormal"><span style="line-height:150%;font-size:10pt" lang="EN-US">DesKinA</span></div>
<div style="text-align:justify;line-height:150%;margin-bottom:0pt" class="ecxyiv409858492ecxMsoNormal"><span style="line-height:150%;font-size:10pt" lang="EN-US"><br></span></div>
<div style="text-align:justify;line-height:150%;margin-bottom:0pt" class="ecxyiv409858492ecxMsoNormal"><span style="line-height:150%;font-size:10pt" lang="EN-US">
</span></div><div style="line-height:normal;font-family:Tahoma"><font face="Courier New">m2 <- aov(rg~bloc+K/A)</font></div>
<div style="line-height:normal;font-family:Tahoma"><span style="line-height:14px;font-family:'Courier New';font-size:10pt" lang="EN-US">AinK<-sapply(paste("K",levels(K),sep=""),simplify=F,grep,x=names(coef(m2)[m2$assign==3]))</span></div>
<div style="line-height:normal;font-family:Tahoma"><span style="line-height:14px;font-family:'Courier New';font-size:10pt" lang="EN-US">
<div style="text-align:justify;line-height:19px;margin-bottom:0pt" class="ecxyiv409858492ecxMsoNormal"><span style="font-size:10pt" lang="EN-US">DesAinK<-summary(m2,
split=list("A:K"=AinK))</span></div>
<div style="text-align:justify;line-height:19px;margin-bottom:0pt" class="ecxyiv409858492ecxMsoNormal"><span style="font-size:10pt" lang="EN-US">DesAinK</span></div></span></div></span>
<br>
<div style="text-align:justify;line-height:150%;margin-bottom:0pt" class="ecxyiv409858492ecxMsoNormal"><span style="line-height:150%;font-size:10pt" lang="EN-US"><br></span></div>
<div style="text-align:justify;line-height:150%;margin-bottom:0pt" class="ecxyiv409858492ecxMsoNormal"><span style="line-height:150%;font-size:10pt" lang="EN-US">Outra forma seria pelo método dos efeitos aninhados</span></div>
<div style="text-align:justify;line-height:150%;margin-bottom:0pt" class="ecxyiv409858492ecxMsoNormal"><span style="line-height:150%;font-size:10pt" lang="EN-US"><br></span></div>
<div style="text-align:justify;line-height:150%;margin-bottom:0pt" class="ecxyiv409858492ecxMsoNormal"><span style="line-height:150%;font-size:10pt" lang="EN-US">
</span></div><div style="line-height:normal;font-family:Tahoma"><font face="Courier New">rend<-read.table("C:\\Program
Files\\R\\RDADOS\\UFPR1.txt",h=T)</font></div>
<div style="line-height:normal;font-family:Tahoma"><span style="font-size:10pt"><font face="Courier New">attach(rend)</font></span></div>
<div style="line-height:normal;font-family:Tahoma">
<div><font face="Courier New">A<-factor(A)</font></div>
<div><font face="Courier New">K<-factor(K)</font></div>
<div><span style="font-family:'Courier New'">bloc<-factor(bloc)</span></div></div>
<div style="line-height:normal;font-family:Tahoma"><font face="Courier New">m1 <- aov(rg~bloc+A/K)</font></div>
<div style="line-height:normal;font-family:Tahoma"><font face="Courier New">effects(m1) #A partir da matriz de efeitos você seleciona os
efeitos de interesse.</font></div>
<div style="line-height:normal;font-family:Tahoma"><span style="text-align:justify;line-height:19px;font-family:'Courier New'">DesKinA<-summary(m1,
split=list("A:K"=list(A37.5=c(1,4,7,10),A50=c(2,5,8,11),A62.5=c(3,6,9,12))))</span></div>
<div style="line-height:normal;font-family:Tahoma"><span style="text-align:justify;line-height:19px;font-family:'Courier New'">DesKinA</span></div>
<div style="line-height:normal;font-family:Tahoma"><span style="font-family:'Courier New'">m2 <- aov(rg~bloc+K/A)</span></div>
<div style="line-height:normal;font-family:Tahoma"><span style="font-family:'Courier New'">effects(m2)</span></div>
<div style="line-height:normal;font-family:Tahoma"><span style="text-align:justify;line-height:19px;font-family:'Courier New'">DesAinK<-summary(m2,
split=list("K:A"=list(K0=c(1,6),K30=c(2,7),K60=c(3,8),K120=c(4,9),K180=c(5,10))))</span></div>
<div style="line-height:normal;font-family:Tahoma"><span style="text-align:justify;line-height:19px;font-family:'Courier New'">DesAinK</span></div>
<div style="line-height:normal;font-family:Tahoma"><span style="text-align:justify;line-height:19px;font-family:'Courier New'"><br></span></div>
<div style="line-height:normal;font-family:Tahoma">Espero que tenhamos sanado
sua duvida.</div>
<div style="line-height:normal;font-family:Tahoma"><br></div>
<div style="line-height:normal;font-family:Tahoma">Att.</div>
<div style="line-height:normal;font-family:Tahoma"><br></div>
<div style="line-height:normal;font-family:Tahoma">Tiago.</div>
<br></div>
<div><br>
<div>
<div id="ecxyiv409858492ecxSkyDrivePlaceholder"></div>
<hr id="ecxyiv409858492ecxstopSpelling">
Date: Sat, 17 Nov 2012 09:21:23 -0200<br>From: jhguilhen@gmail.com<br>To:
r-br@listas.c3sl.ufpr.br; camposagro@yahoo.com.br<br>Subject: Re: [R-br]
Experimento fatorial. Desdobramento<br><br>Uma outra maneira de fazer isto e bem
mais fácil é utilizar o pacote ExpDes, ele já faz o desdobramento
automaticamente quando dá interação e bem fácil de
utilizar.<br><br>Atte..<br><br><br><br>
<div class="ecxyiv409858492ecxgmail_quote">Em 16 de novembro de 2012 21:41, Odirley Campos <span dir="ltr"><<a rel="nofollow" href="mailto:camposagro@yahoo.com.br">camposagro@yahoo.com.br</a>></span>
escreveu:<br>
<blockquote style="border-left:#ccc 1px solid;padding-left:1ex" class="ecxyiv409858492ecxgmail_quote">
<div>
<div style="font-family:tahoma, 'new york', times, serif;font-size:10pt">
<div><span>#Pessoal! Boa noite ! <br></span></div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px">#Estou
tentando sem sucesso fazer o desdobramento de interações com R. Cheguei a
baixar alguns arquivos da net no endereço "<span style="text-decoration:underline"><a rel="nofollow" href="http://www.leg.ufpr.br/doku.php/ridiculas#desdobramento_de_interacao_em_experimento_fatorial" target="_blank">http://www.leg.ufpr.br/doku.php/ridiculas#desdobramento_de_interacao_em_experimento_fatorial</a></span>"
. Porêm tive o mesmo problema que tive com meus dados. <br></div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px">#Usei
os mesmos comandos retirados da net para os dados tirados de lá. A anova
"geral" saiu normalmente:</div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px"><br></div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px">>rend<-read.table("C:\\Program
Files\\R\\RDADOS\\UFPR1.txt",h=T) #após armezenar arquivo no meu PC#</div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px">>rend<br></div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px">>m1
<- aov(rg~bloc+A/K, data=rend)</div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px">>summary(m1)
#Anova geral saiu norma sem problemas#<br></div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px">
Df Sum Sq Mean Sq F value Pr(>F)
<br>bloc <a rel="nofollow" target="_blank">1 51.3 51.3
3.585</a> 0.0624 .
<br>A
1 495.6 495.6 34.633 1.2e-07
***<br>A:K 1
2213.7 2213.7 154.712 < 2e-16 ***<br>Residuals 71
1015.9
14.3
<br>---<br>Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
<br></div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px"><br></div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px">>summary(m1,split=list("A:K"=list("A-37.5"=c(1,4,7,10),"A-50.0"=c(2,5,8,11),"A-62.5"=c(3,6,9,12))))
#<span style="background-color:rgb(255,255,0)"><span>Mas o desdobramento não
mostra Quadrado médio nem mesmo, F-value ou mesmo o P-value. O que eu posso
ter feito de errado??</span></span><br></div>
<div style="background-color:transparent;font-style:normal;font-family:tahoma, 'new york', times, serif;font-size:13px">
Df Sum Sq Mean Sq F value Pr(>F)
<br>bloc
1 51.3 51.3 3.585 0.0624
.
<br>A
1 495.6 495.6 34.633 1.2e-07
***<br>A:K 1
2213.7 2213.7 154.712 < 2e-16 ***<br> A:K: A-37.5
4
<br> A:K: A-50.0
4
<br> A:K: A-62.5
4
<br>Residuals 71 1015.9
14.3
<br>---<br>Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’
1 </div><span class="ecxyiv409858492ecxHOEnZb"><font color="#888888">
<div style="text-align:center;background-color:transparent;font-style:normal;font-family:arial, helvetica, clean, sans-serif;font-size:13px">Odirley
Campos<br>Engenheiro Agrônomo
UFV/MG<br></div></font></span></div></div></blockquote></div></div></div></div></div> </div></div>
</div><br>_______________________________________________<br>R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br> </div> </div> </div><br>_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.</div></div> </div></body>
</html>