Value Walmes deu certo obrigado....<br><br><div class="gmail_quote">---------- Forwarded message ----------<br>From: <b class="gmail_sendername">Gilson Sanchez</b> <span dir="ltr"><<a href="mailto:gilsonsch@gmail.com">gilsonsch@gmail.com</a>></span><br>
Date: 2011/7/8<br>Subject: regressão linear pelo origem<br>To: Grupo R-Br <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>><br><br><br><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>
</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>