<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial color=#0000ff>Pode me passar seu arquivo para rodar este
CMR?</FONT></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV class=gmail_quote>
<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"><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 face=Calibri>Laboratório de Fisiologia
Vegetal</FONT></P>
<P style="MARGIN: 0cm 0cm 0pt"><FONT face=Calibri>Embrapa Amazônia
Ocidental</FONT></P>
<P style="MARGIN: 0cm 0cm 0pt"><FONT 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 face=arial,helvetica,sans-serif
color=#000099>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 face=Calibri>Laboratório de Fisiologia
Vegetal</FONT></P>
<P style="MARGIN: 0cm 0cm 0pt"><FONT face=Calibri>Embrapa Amazônia
Ocidental</FONT></P>
<P style="MARGIN: 0cm 0cm 0pt"><FONT 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 face=arial,helvetica,sans-serif
color=#000099>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>
<P>
<HR>
<P></P>_______________________________________________<BR>R-br mailing
list<BR>R-br@listas.c3sl.ufpr.br<BR>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<BR>Leia
o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo
reproduzível.</BLOCKQUOTE></BODY></HTML>