Message-ID: <CAKL8G3HsrEyCtmd7fw7yWUXvBXDDM=TMGZ_Dwufbj9N1x=Wasg@mail.gmail.com>
Date: 2017-09-01T01:42:58Z
From: Jorge I Velez
Subject: [R-es] Area bajo la curva
In-Reply-To: <CAOYqKJ4NLRW7maQJ+4w+cjZ+cj=ymes-KcZZ-cnk8UujD32jFA@mail.gmail.com>
Buenas noches, Wilmer.
Puedes intentar la aproximación sugerida en
https://stackoverflow.com/questions/4954507/calculate-the-area-under-a-curve
## preparación
x <- c(1,2,3,4,5,6,7,8,9,10)
y <- c(0,2,15,30,50,NaN,NaN,10,2,1)
d <- data.frame(x, y)
d <- d[complete.cases(d),]
id <- order(d$x)
## cálculo
require(zoo)
with(d, sum(diff(x[id])*rollmean(y[id],2)))
## [1] 169.5
Espero sea de utilidad.
Jorge.-
2017-08-31 19:17 GMT-05:00 WILMER CONTRERAS SEPULVEDA <wilmercs en ufps.edu.co>
:
> Buenas noches.
>
> Quisiera saber si existe una libreria o función que me calcule el área bajo
> la curva de dos vectores de números. Ademas esta debe tener en cuenta si
> existen datos faltantes o NaN.
>
> Por ejemplo calcular el área bajo la curva del vector en el eje x:
>
> x<- c(1,2,3,4,5,6,7,8,9,10)
>
> y el vector en el eje y:
>
> y<-c(0,2,15,30,50,NaN,NaN,10,2,1)
>
>
> Muchas gracias.
>
> --
>
> *Wilmer Contreras Sepulveda*
>
> *Grupo de Investigación en Desarrollo de Microelectronica Aplicada*
> *Universidad Francisco de Paula Santander *
>
> [[alternative HTML version deleted]]
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
[[alternative HTML version deleted]]