<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>Prezados Membros,</p>
<p> Estou tentando realizar a estimação dos coeficientes de um
modelo não linear com a função optim(), mas só recebo a mensagem
de erro: <br>
</p>
<pre tabindex="0" class="GNKRCKGCGSB" id="rstudio_console_output" style="font-family: 'Lucida Console'; font-size: 10pt !important; outline: none; border: none; word-break: break-all; margin: 0px; -webkit-user-select: text; white-space: pre-wrap !important; line-height: 15px; color: rgb(0, 0, 0); font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; orphans: auto; text-align: -webkit-left; text-indent: 0px; text-transform: none; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px; background-color: rgb(255, 255, 255);"><span><span class="GNKRCKGCASB ace_constant" style="color: rgb(197, 6, 11);">Error in optim(c(0.97, 0.32), function(a) f(a, x, yexp)) :
função alvo em optim retorna um objeto de comprimento 11 ao invés de 1</span></span></pre>
<p> Segundo o meu CRM:</p>
<p>#Crio as variáveis<br>
</p>
<p>x <- c(1 ,10, 20, 30, 40, 50, 60, 70, 80, 90, 100) <br>
y <- c(0.033823, 0.014779, 0.004698, 0.001584, -0.002017,
-0.003436, <br>
-0.000006, -0.004626, -0.004626, -0.004626, -0.004626)</p>
<p>#Especifico a função, que no meu caso é y ~ a4*exp(-x/a5)<br>
</p>
<p>f = function(a,x,yexp) {yexp= a[1]*exp(-x/a[2]) }</p>
<p># Utilizando a otimização<br>
</p>
<p>mod = optim(c(0.97, 0.32), function(a) f(a, x, yexp))</p>
<p><br>
</p>
<p>Alguém poderia me ajudar.</p>
<p>Obrigado<br>
</p>
<p><br>
</p>
<pre class="moz-signature" cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
OrcID: orcid.org/0000-0001-8232-6722 - ResearcherID: A-5790-2016
Researchgate: <a class="moz-txt-link-abbreviated" href="http://www.researchgate.net/profile/Alexandre_Santos10">www.researchgate.net/profile/Alexandre_Santos10</a>
LinkedIn: br.linkedin.com/in/alexandre-dos-santos-87961635
Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/
======================================================================</pre>
</body>
</html>