<font face="trebuchet ms,sans-serif">JC Faria,<br><br>Dando um bizu rápido, achei a função tutoR::eval.string(), link de documentação abaixo.<br><br><a href="http://finzi.psych.upenn.edu/R/library/tutoR/html/eval.string.html">http://finzi.psych.upenn.edu/R/library/tutoR/html/eval.string.html</a><br>
<br>Pelos exemplos acredito que ela possa resolver. Da mesma forma ainda acredito que com os pacotes básicos do R você também consiga. Vou fazer tentativas.<br><br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>
<br><br><div class="gmail_quote">Em 17 de abril de 2011 08:09, Jose Claudio Faria <span dir="ltr"><<a href="mailto:joseclaudio.faria@gmail.com">joseclaudio.faria@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Pessoal,<br>
<br>
Gostaria de passar uma string como modelo para uma função, e não estou<br>
conseguindo.<br>
(Acho que já estou ficando velho...)<br>
<br>
De uma forma primitiva consigo:<br>
<br>
mF <- function(x=seq(1, 5, by=1),<br>
y=seq(0, 10, by=5),<br>
z=function(x, y) 2 - 0.4*y - 0.5*x + 0.8*sqrt(x))<br>
{<br>
z <- outer(x, y, z)<br>
z<br>
}<br>
<br>
> mF()<br>
[,1] [,2] [,3]<br>
[1,] 2.300000 0.3000000 -1.700000<br>
[2,] 2.131371 0.1313708 -1.868629<br>
[3,] 1.885641 -0.1143594 -2.114359<br>
[4,] 1.600000 -0.4000000 -2.400000<br>
[5,] 1.288854 -0.7111456 -2.711146<br>
<br>
Mas o que preciso (para automatizar um tanto de coisas é algo assim):<br>
mF <- function(x=seq(1, 5, by=1),<br>
y=seq(0, 10, by=5),<br>
z='2 - 0.4*y - 0.5*x + 0.8*sqrt(x)')<br>
{<br>
z <- outer(x, y, function(x, y) DUVIDA)<br>
z<br>
}<br>
<br>
com o mesmo resultado anterior.<br>
<br>
Alguma dica?<br>
<br>
Abs,<br>
--<br>
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\<br>
Jose Claudio Faria<br>
Estatistica - prof. Titular<br>
UESC/DCET/Brasil<br>
<a href="mailto:joseclaudio.faria@gmail.com">joseclaudio.faria@gmail.com</a><br>
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
</blockquote></div><br>