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 joseclaudio.faria@gmail.com ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\