[R-es] Area bajo la curva

[Jorge I Velez]

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]]