JC Faria, Dando um bizu rápido, achei a função tutoR::eval.string(), link de documentação abaixo.
http://finzi.psych.upenn.edu/R/library/tutoR/html/eval.string.html 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. À disposição. Walmes. ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: [email protected] twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ========================================================================== Em 17 de abril de 2011 08:09, Jose Claudio Faria < [email protected]> escreveu: > Pessoal, > > Gostaria de passar uma string como modelo para uma função, e não estou > conseguindo. > (Acho que já estou ficando velho...) > > De uma forma primitiva consigo: > > mF <- function(x=seq(1, 5, by=1), > y=seq(0, 10, by=5), > z=function(x, y) 2 - 0.4*y - 0.5*x + 0.8*sqrt(x)) > { > z <- outer(x, y, z) > z > } > > > mF() > [,1] [,2] [,3] > [1,] 2.300000 0.3000000 -1.700000 > [2,] 2.131371 0.1313708 -1.868629 > [3,] 1.885641 -0.1143594 -2.114359 > [4,] 1.600000 -0.4000000 -2.400000 > [5,] 1.288854 -0.7111456 -2.711146 > > Mas o que preciso (para automatizar um tanto de coisas é algo assim): > mF <- function(x=seq(1, 5, by=1), > y=seq(0, 10, by=5), > z='2 - 0.4*y - 0.5*x + 0.8*sqrt(x)') > { > z <- outer(x, y, function(x, y) DUVIDA) > z > } > > com o mesmo resultado anterior. > > Alguma dica? > > Abs, > -- > ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\ > Jose Claudio Faria > Estatistica - prof. Titular > UESC/DCET/Brasil > [email protected] > ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\ > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br >
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
