<font face="trebuchet ms,sans-serif">O que o Benilton te passou é exatamente o que você precisa, na minha humilde interpretação do problema. Quando você usa plot() de uma função, na realidade você tá fazendo um curve(), que nada mais é que unir com linhas os pontos, obtidos com x e f(x) para um grid fino de x. Então, raciocinando dessa forma e explorando o CMR do Benilton, é só fazer o mesmo: criar um vetor x com grid tão fino quanto queira.<br>
<br><span style="font-family: courier new,monospace;">set.seed(1)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">x0 <- seq(0,2,l=100) # só criar o grid tão fino quanto queira</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">f1 <- function(x) x^2</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">f2 <- dnorm</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">f3 <- function(x) x^3</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">f4 <- cos</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">listaFs <- list(f1, f2, f3, f4)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">results <- do.call(cbind, lapply(listaFs, function(myf, myarg) myf(myarg), x0))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">matplot(x0, results, type='l')</span><br style="font-family: courier new,monospace;"><br>Fique a vontade para mexer no CMR, criar/alterar as coisas e consultar o help das funções envolvidas.<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>