<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial color=#0000ff><STRONG>Qual a função que este comando
do.call tem?</STRONG></FONT></DIV>
<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></BODY></HTML>