[R-es] Area bajo la curva

[Jesús Para Fernández]

Hay un paquete llamado flux que te permite de una manera facil elegri como calcular el area debajo de la curva, con la función auc

Échale un ojo.
________________________________
De: R-help-es <r-help-es-bounces en r-project.org> en nombre de Javier Marcuzzi <javier.ruben.marcuzzi en gmail.com>
Enviado: viernes, 1 de septiembre de 2017 4:00
Para: Jorge I Velez; WILMER CONTRERAS SEPULVEDA
Cc: R-help-es
Asunto: Re: [R-es] Area bajo la curva

Estimado Wilmer Contreras Sepulveda

Me parece buena la sugerencia de Jorge, hay muchas formas, yo aparte de la sugerencia que le hicieron le agrego otras dos, en cualquier buscador las palabras claves son R AUC, y el artículo https://www.r-bloggers.com/calculating-auc-the-area-under-a-roc-curve/ , lógicamente aparecerán tantas alternativas que puede llegar a confundirse respecto a cuál es conveniente para su caso.

Javier Rubén Marcuzzi

De: Jorge I Velez
Enviado: jueves, 31 de agosto de 2017 22:43
Para: WILMER CONTRERAS SEPULVEDA
CC: R-help-es
Asunto: Re: [R-es] Area bajo la curva

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

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

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