<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta name=Generator content="Microsoft Word 14 (filtered medium)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Cambria;
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:"Trebuchet MS";
panose-1:2 11 6 3 2 2 2 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{mso-style-priority:99;
mso-style-link:"Texto de balão Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif";}
span.EstiloDeEmail17
{mso-style-type:personal-reply;
font-family:"Cambria","serif";
color:#C00000;}
span.TextodebaloChar
{mso-style-name:"Texto de balão Char";
mso-style-priority:99;
mso-style-link:"Texto de balão";
font-family:"Tahoma","sans-serif";
mso-fareast-language:PT-BR;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=PT-BR link=blue vlink=purple><div class=WordSection1><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>Caro <b>Walmes</b>, boa tarde.<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>Muito obrigado pelo pronto atendimento.<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>Enquanto aguardava sua resposta fiz algumas pesquisas adicionais e encontrei o seguinte script, a saber:<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>#Inicio ----------------------------------------------<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>#Dados Originais<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>x<-c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23)<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>y<-c(100,150,200,250,300,350,400,450,500,550,600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200)<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'>cbind(x,y)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'>n<-length(x)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'>cbind(x,log(y),x*log(y),x^2)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'>cbind(sum(x),sum(log(y)),sum(x*log(y)),sum(x^2))<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>num = sum(x*log(y)) - sum(x)*sum(log(y))/n<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>denom = sum(x^2) - sum(x)^2/n<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>a=num/denom<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>b=sum(log(y))/n - a*sum(x)/n<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>#Estimando A, B<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>A = exp(a)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'>B = exp(b)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'>A<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'>B<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-family:"Cambria","serif";color:#C00000'>plot(x,y,col="blue",pch=19)<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>curva_exponencial_plotada<-curve(B*exp(a*x), 1, 23, add=T, col=2)<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>#Dados Ajustados<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>curva_exponencial_plotada<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>#Final ------------------------------------<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>Observe o conteúdo do objeto “curva_exponencial_plotada”. Preciso que ele traga os valores no intervalo igual ao objeto “x”, ou seja, os valores ajustados para 1,2,3,4,5,6,...,,23.<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'>Você tem alguma ideia com resolver isso?<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Cambria","serif";color:#C00000'>Abs.<o:p></o:p></span></p><div class=MsoNormal align=center style='text-align:center'><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><hr size=2 width="100%" align=center></span></div><p class=MsoNormal><a href="http://www.posicional.com/"><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#C00000;text-decoration:none'><img border=0 width=409 height=94 id="Imagem_x0020_2" src="cid:image001.gif@01CEEC5F.C3BB3FC0" alt="assinatura_email_sites"></span></a><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#C00000'><o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><b><span style='font-size:14.0pt;font-family:"Cambria","serif";color:black'>Cícero C Nunes<o:p></o:p></span></b></p><p class=MsoNormal><span style='font-size:8.0pt;font-family:"Cambria","serif";color:#C00000'>Diretor Técnico Operacional<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:8.0pt;font-family:"Cambria","serif";color:#C00000'>Divisão Remuneração<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Cambria","serif";color:#C00000'><a href="mailto:c2n@posicional.com">c2n@posicional.com</a><o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Cambria","serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><b><span style='font-size:9.0pt;font-family:"Cambria","serif";color:#C00000'>+55(16)3397.0226<o:p></o:p></span></b></p><p class=MsoNormal><b><span style='font-size:9.0pt;font-family:"Cambria","serif";color:#C00000'>+55(11)3280.0226<o:p></o:p></span></b></p><p class=MsoNormal><b><span style='font-size:9.0pt;font-family:"Cambria","serif";color:#C00000'>+55(11)9.9978.0026<o:p></o:p></span></b></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Cambria","serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><b><span style='font-size:9.0pt;font-family:"Cambria","serif";color:#1F497D'>SKYPE</span></b><span style='font-size:9.0pt;font-family:"Cambria","serif";color:#1F497D'>: </span><span style='font-size:9.0pt;font-family:"Cambria","serif";color:black'>consultormp</span><span style='font-size:9.0pt;font-family:"Cambria","serif";color:#1F497D'><o:p></o:p></span></p><p class=MsoNormal><span style='font-size:9.0pt;font-family:"Cambria","serif";color:#595959'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:9.0pt;font-family:"Cambria","serif";color:#595959'>Rua Padre Duarte, 1360 – salas 6/7 – Centro – Araraquara, SP – CEP.: 14.801-310<o:p></o:p></span></p><p class=MsoNormal><b><i><span style='font-size:9.0pt;font-family:"Cambria","serif";color:#C00000'>“Antes de imprimir pense em sua responsabilidade com o meio ambiente – Quem ama cuida!”<o:p></o:p></span></i></b></p><p class=MsoNormal><span style='font-family:"Cambria","serif";color:#C00000'><o:p> </o:p></span></p><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>De:</span></b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> walmes . [mailto:walmeszeviani@gmail.com] <br><b>Enviada em:</b> quinta-feira, 28 de novembro de 2013 16:40<br><b>Para:</b> r-br@listas.c3sl.ufpr.br; rh@posicional.com<br><b>Assunto:</b> Re: [R-br] Ajustamento de dados à curva exponencial<o:p></o:p></span></p><p class=MsoNormal><o:p> </o:p></p><div><div><p class=MsoNormal style='margin-bottom:12.0pt'><span style='font-family:"Trebuchet MS","sans-serif"'>Cícero,<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Trebuchet MS","sans-serif"'>Para ajustar uma função exponencial, tal como você mencionou e forneceu expressão, aos dados é necessário que eles tenham esse "sinal". Ao fazer o gráfico dos seus pontos vê-se uma reta. Uma função exponencial não se transforma em reta (só no limite de um dos parâmetros eu acho). O correto é ajustar curva aos dados e não dados à curva como você indicou no título. Procure tutoriais da função nls() na internet. Você vai ver muitos exemplos e aprender como partir deles.<br><br>À disposição.<br>Walmes.<o:p></o:p></span></p></div><p class=MsoNormal><o:p> </o:p></p></div></div></body></html>