Em 17 de abril de 2011 08:09, Jose Claudio Faria <joseclaudio.faria@gmail.com> 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
joseclaudio.faria@gmail.com
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br