<br><div class="gmail_quote"><div><div dir="ltr"><div><div dir="ltr">Pessoal mais uma vez procuroa juda de vc's, bom a verdade é pra um colega ele é novo com o R, se alguem puder ajudar.<br>
 <br>
Estou precisando da ajuda de você, sou novo no grupo e estou tentando fazer um grafico de regressao linear simples ajustando o intercepto da reta deve passar pela origem dos eixos (0,0) mas não estou conseguindo.</div><div dir="ltr">
 </div><div dir="ltr">O CMR que estou trabalhando é o seguinte.<br>
 <br>
# REGRESSÃO EI30 VS DS<br>
 <br>
require(XLConnect)<br>reg<-loadWorkbook("Estadistica Final.xls", create= FALSE)<br>reg1<-readWorksheet(reg, sheet="Plan1")<br>reg1<br>attach(reg1)<br>
cor.test(EI30, DS, alternative = c("two.sided"),<br>         method = c("pearson"), conf.level = 0.95)<br>
reglin1<-lm(DS~EI30, data=reg1)<br>anova(reglin1)<br>reglin1<br>summary(reglin1)<br>
 <br>
# GRAFICOS<br>
par(mfrow = c(3,1), mar=c(4.5,5,2,2))<br>plot(EI30,DS, type="p", pch=15, lwd=1.5,<br> ylim=c(0,100), xlim=c(0,50), cex.main=1.2, cex.lab=0.9, cex.axis=0.9,<br> xlab="",<br> ylab="",cex.lab=2,<br>
 main="Descoberto", font.main=2)<br>abline(reglin1, lwd=2.0, col="black", lty=1) ## pode-se usar  lty=9<br>legend("bottomright", bty="n", lwd=c(1.5), pch=c(15), col=c("black"),<br>
legend=c(expression(y=='1,516x'~+~'9,241'~','~R^2=='0,58'^'*')), cex=1)<br>
plot(EI30, LS, pch=16, col="black",<br>     ylim=c(0,3), xlim=c(0,50), cex.main=1.2, cex.lab=0.9, cex.axis=0.9,<br>     xlab="",<br>     ylab=expression(bold(Perda~do~solo~(g~L^{-1}))), font.lab=2,<br>
     main="Liteira", font.main=2)<br>abline(reglin2, lwd=2.0, col="black", lty=2)<br>legend("bottomright", bty="n", lwd=c(1.5), pch=c(16), col=c("black"),<br>legend=c(expression(y=='0,018x'~+~'0,323'~','~R^2=='0,16'^'*')), cex=1)<br>

 <br>
 <br>
Aguardo suas consideraçoes.<br>
 <br>
Att.<br><br><font style="font-size: 12pt;" size="3"><font face="Arial">Omar Cubas Encinas</font><br></font><font face="Arial">Instituto Nacional de Pesquisas da Amazônia / INPA</font><br><font face="Arial">Aluno de Mestrado em Agricultura do Tropico Úmido / ATU</font><br>
<font face="Arial">Manaus - AM - Brasil</font><br><font face="Arial">(092) 9102-2542</font><br><br><br>                                       </div></div>                                        <p></p></div></div>
</div><br><br clear="all"><br>-- <br><div>MSc. Gilson Sánchez Chia<br></div>
<p style="margin: 0cm 0cm 0pt;"><font size="3" face="Calibri">Laboratório de Fisiologia Vegetal</font></p>
<p style="margin: 0cm 0cm 0pt;"><font size="3" face="Calibri">Embrapa Amazônia Ocidental</font></p>
<p style="margin: 0cm 0cm 0pt;"><font size="3" face="Calibri">Fone: (92) 3303-7841</font></p>
<div>---<br><font color="#000099">Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.</font></div>
<div><span lang="en-us"><font color="#000099" face="arial,helvetica,sans-serif">Please consider the environment before printing this email.</font></span></div>
<div><span lang="en-us">
<div><span lang="en-us"><font color="#000099"><font face="arial,helvetica,sans-serif">Renew, Reduce and Recycle. The Planet Knows.</font></font></span></div></span></div><br>