Boa noite, R&#39;s<div>Estou com uma dúvida,</div><div>Como eu faço para saber o tamanho da diferença entre dois tratamentos (no caso &quot;Alto&quot; e &quot;Baixo&quot;) em um modelo linear.</div><div>No exemplo abaixo, não existe efeito do &quot;x&quot; sobre o &quot;y&quot;, entretanto existe efeito de &quot;t&quot; (diferença entre os tratamentos &quot;Alto&quot; e &quot;Baixo&quot;). E é nisso que eu estou interessado.</div>

<div>Qual seria a forma mais adequada para encontrar essa diferença? Eu usei &quot;lm(y~x+factor(t))&quot; mas não consegui chegar a nada.</div><div>Alguém poderia me ajudar, por favor?</div><div><br></div><div>O script é o mesmo que eu estou usando para gerar diferentes padrões e tentar entender os resultados.</div>

<div>Abraços</div><div>Luciano</div><div><br></div><div><div>#--------------------------------------------------------------------------------</div><div>SD=0.1</div><div>n=50</div><div>#-----</div><div>aA=0.8#intercepto Alto</div>

<div>bA=-0#inclinação Alta</div><div>aB=0.3#intercepto Baixo</div><div>bB=-0#inclinação Baixo</div><div><br></div><div>xA&lt;-runif(n)</div><div>yA&lt;-(aA+(bA*xA))</div><div>yA&lt;-yA+rnorm(n,0,sd=SD)</div><div>xA&lt;-xA*100</div>

<div>xB&lt;-runif(n)</div><div>yB&lt;-(aB+(bB*xB))</div><div>yB&lt;-yB+rnorm(n,0,sd=SD)</div><div>xB&lt;-xB*100</div><div>x&lt;-c(xB,xA)</div><div>y&lt;-c(yB,yA)</div><div>v&lt;-rep(c(&quot;BAIXO&quot;,&quot;ALTO&quot;),c(length(xB),length(xA)))</div>

<div>plot(y~x,pch=&quot;&quot;,xlab=&quot;Eixo X&quot;,ylab=&quot;Eixo Y&quot;)</div><div>points(xA,yA,col=&quot;pink&quot;,pch=16)</div><div>points(xB,yB,col=&quot;grey&quot;,,pch=16)</div><div>abline(lm(yB~xB),lwd=4,col=&quot;black&quot;)</div>

<div>abline(lm(yA~xA),lwd=4,col=&quot;red&quot;)</div><div>legend(&quot;topright&quot;, c(&quot;ALTO&quot;,&quot;BAIXO&quot;), col = c(&quot;red&quot;,&quot;black&quot;),pch=16,merge = TRUE, bg = &#39;gray90&#39;,lty=1)</div>

<div><br></div><div><br></div><div>model&lt;-lm(y~x+factor(v))</div><div>summary(model)</div></div><div><br></div><div>#--------------------------------------------------------------------------------</div><div><div><br>
</div>
-- <br><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><div>Luciano F. Sgarbi</div><div>Mestrando em Ecologia e Evolução - UFG</div><div>Laboratório de Ecologia de Insetos</div><div>Cel. (62)8174-2262   Lab. (62)3521-1732</div>

<div><br></div><div><br></div><br>
</div><div><br></div>