<div dir="ltr">Apenas corrigindo (em negrito o que acrescentei) a função do Davi:<div><br></div><div><p class="" style="font-family:arial,sans-serif;font-size:13px"><span style="font-size:11pt;font-family:Arial,sans-serif">area <-function(lims,prec){<br>
x<-seq(lims[1],lims[2],prec)<u></u><u></u></span></p><p class="" style="font-family:arial,sans-serif;font-size:13px"><span lang="EN-US" style="font-size:11pt;font-family:Arial,sans-serif">resp <- sum(x^2) / length(x)* <b>(lims[2] - lims[1])</b><u></u></span></p>
<p class="" style="font-family:arial,sans-serif;font-size:13px"><span lang="EN-US" style="font-size:11pt;font-family:Arial,sans-serif">return(resp)<u></u><u></u></span></p><p class="" style="font-family:arial,sans-serif;font-size:13px">
<span style="font-size:11pt;font-family:Arial,sans-serif">}</span></p></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/5/22 Davi Butturi-Gomes <span dir="ltr"><<a href="mailto:davi.butturi@gmail.com" target="_blank">davi.butturi@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div lang="PT-BR" link="blue" vlink="purple">
<div>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Arial","sans-serif"">Ah,
vc pode fazer o seguinte no R:<br>
<br>
#escolher os limites da integral<br>
limsteste <- c(0,1)<br>
<br>
<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Arial","sans-serif"">#escolher
a “precisão” numérica<br>
precteste <- 0.0001<br>
<br>
#escolher a função, por exemplo, x^2.<br>
area <-function(lims,prec){<br>
x<-seq(lims[1],lims[2],prec)<u></u><u></u></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:11.0pt;font-family:"Arial","sans-serif"">resp
<- sum(x^2) / length(x)<u></u><u></u></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:11.0pt;font-family:"Arial","sans-serif"">return(resp)<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Arial","sans-serif"">}<br>
<br>
<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Arial","sans-serif"">area(limsteste,precteste)<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Arial","sans-serif""><u></u> <u></u></span></p>
<p class="MsoNormal"><b><span style="font-family:"Cambria Math","serif"">____________________<u></u><u></u></span></b></p>
<p class="MsoNormal"><b><span style="font-family:"Cambria Math","serif"">MSc.
Davi Butturi-Gomes<br>
</span></b><span style="font-size:11.0pt;font-family:"Cambria Math","serif"">ESALQ-USP<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Cambria Math","serif""><a href="mailto:davibg@usp.br" target="_blank">davibg@usp.br</a></span><b><span style="font-family:"Cambria Math","serif""><u></u><u></u></span></b></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Arial","sans-serif""><u></u> <u></u></span></p>
<div style="border:none;border-top:solid #b5c4df 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">De:</span></b><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif""> R-br
[mailto:<a href="mailto:r-br-bounces@listas.c3sl.ufpr.br" target="_blank">r-br-bounces@listas.c3sl.ufpr.br</a>] <b>Em nome de </b>Pedro Emmanuel
Alvarenga Americano do Brasil<br>
<b>Enviada em:</b> quarta-feira, 22 de maio de 2013 21:34<br>
<b>Para:</b> R BR lista<br>
<b>Assunto:</b> [R-br] Area sob uma curva<u></u><u></u></span></p>
</div><div><div class="h5">
<p class="MsoNormal"><u></u> <u></u></p>
<p>Amigos de R,<u></u><u></u></p>
<p>Ha muito tempo atras, acho que ainda na R-stat, alguem postou que havia uma
funçao que estima a area sob uma curva. Procurei e procurei e nao achei. Alguem
sabe me dizer se existe mesmo uma funçao com esse proposito? Preferencialmente
em um pacote do core. <u></u><u></u></p>
<p>Abraço a todos,<u></u><u></u></p>
<p>Pedro Brasil<br>
via Android (:)=<u></u><u></u></p>
</div></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></div>