<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Área abaixo da curva é algo simples de implementar. Eu tenho uma versão disponível em<br><br><i><a href="http://dl.dropboxusercontent.com/u/48140237/aac.R">http://dl.dropboxusercontent.com/u/48140237/aac.R</a></i><br>
<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Para carregar em sua sessão R faça<br><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><span style="font-family:courier new,monospace">source("<a href="https://dl.dropboxusercontent.com/u/48140237/aac.R">https://dl.dropboxusercontent.com/u/48140237/aac.R</a>")</span><br>
</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Abaixo está a função aberta. Veja é simples, apenas a implementação da soma da área de trapézios. Nesta x e y devem ser vetores numéricos de mesmo comprimento.<br>
</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br><span style="font-family:courier new,monospace">aac <- function(x, y){<br>    ox <- order(x)<br>    x <- x[ox]<br>    y <- y[ox]<br>
    alt <- diff(x)<br>    bas <- y[-length(y)]+diff(y)/2<br>    a <- sum(alt*bas)<br>    return(a)<br>}</span><br><br>À disposição.<br>Walmes.<br><br></div>​</div>