<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><div><span>Plotei a seguinte regressão hipotética e gostaria de saber se existe alguma forma se verificar se as reg 1 e 2 são significativamente diferentes, talvez comparando ângulo de inclinação das retas?</span></div><div><span>Tb gostaria de saber como faço p inserir na legenda o que significa cada reta, pois só consegui colocar o que significam os pontos. <br></span></div><div><br><span></span></div><div><span>x1=c(1,2,3,4,5,6,7,8,9,10)<br>x2=c(13,14,15,16,17,18,19)<br>y1=c(30,40,50,60,70,80,90,100,110,120)<br>y2=c(20,22,23,24,25,26,27)<br>x=c(1,2,3,4,5,6,7,8,9,10,13,14,15,16,17,18,19)<br>y=c(30,40,50,60,70,80,90,100,110,120,20,22,23,24,25,26,27)<br>reg1=lm(x1~y1)<br>reg2=lm(x2~y2)<br>simbolos=c(rep(19,10),rep(2,7))
<br>plot(x~y,pch=simbolos)
<br>abline(reg1,lty=2)
<br>abline(reg2,lty=1)
<br>legend("bottomright",c("D","W"),pch=c(19,2))</span></div><div><br><span></span></div><div><span>Muito obrigado pela ajuda.<br></span></div><div><span></span></div><div> </div><div style="text-align:left;"><font style="font-family:times new roman, new york, times, serif;font-style:italic;" size="4"><span style="color:rgb(0, 0, 255);">Marcelo Claro de Souza</span></font><br></div><div><font size="1">Biologist, PhD student in Plant Biology<br>Institute of Bioscience - UNESP, Brazil<br><br></font><style><!--p.MsoNormal, li.MsoNormal, div.MsoNormal {margin:0cm;margin-bottom:.0001pt;font-size:12.0pt;font-family:"Times New Roman";}a:link, span.MsoHyperlink {color:blue;text-decoration:underline;}a:visited, span.MsoHyperlinkFollowed {color:purple;text-decoration:underline;}filtered {margin:70.85pt 3.0cm 70.85pt 3.0cm;}div.Section1 {}--></style><span style="font-size:10pt;"></span> </div></div></body></html>