Mauro,<br><br>Os resultados do lapply saem em uma lista... ao usar do.call, você realiza a "ligação" entre os elementos da lista por um rbind(), portanto a saída é uma matriz! com o mesmo número de colunas que os n elementos da lista e linhas correspondentes a n * o número de linhas de cada elemento da lista.<br>
<br>att,<br>FH<br><br><div class="gmail_quote">2011/12/6 Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<u></u>





<div bgcolor="#ffffff">
<div><font face="Arial" color="#0000ff"><b>Qual a função que este comando 
do.call tem?</b></font></div><div><div class="h5">
<blockquote style="PADDING-RIGHT:0px;PADDING-LEFT:5px;MARGIN-LEFT:5px;BORDER-LEFT:#000000 2px solid;MARGIN-RIGHT:0px">
  <div><br></div><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"></blockquote></div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br>