[R-br] Ajuda: duvida passando uma string como modelo para uma função

[Jose Claudio Faria]

Walmes,

Embora ache que essa função ainda possa ser melhorada, sua ajuda foi valiosa!

Sua sugestão pode ser mais simples, e próximo do que realmente estou
precisando, veja:

mF <- function(x=seq(1, 5, by=1),
                         y=seq(0, 10, by=5),
                        model){
  z <- outer(x, y,
                   function(x, y){
                   eval(model)
                   })
  z
}

mF(model=quote(2 - 0.4*y - 0.5*x + 0.8*sqrt(x)))

> mF(model=quote(2 - 0.4*y - 0.5*x + 0.8*sqrt(x)))
               [,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

Talvez na segunda-feira outras pessoas possam dar alguma contribuição...

Abs e muito obrigado!
-- 
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\
Jose Claudio Faria
Estatistica - prof. Titular
UESC/DCET/Brasil
joseclaudio.faria em gmail.com
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\