[R-es] Area bajo la curva

[Carlos Ortega]

Hola

No es el AUC de un modelo de clasificación binaria lo que estás buscando.
Lo que quieres es integrar, calcular el área bajo tu vector.

La solución va por el lado de lo que ya te han comentado (referencia en
StackOverflow) y se me ocurre otra alternativa visto que tu vector tiene un
par de "NaN" que suponen un problema....


   - Puedes interpolar esos puntos "NaN" intermedios o vaya suponer que la
   función es simétrica y rellenarlos "a mano".
   - Una vez interpolado, ajustarías estos puntos a una función (con un
   polinomio sería suficiente) y
   - Finalmente con la función "integrate()" calculas el área.

[image: Imágenes integradas 1]

Saludos,
Carlos Ortega
www.qualityexcellence.es

El 1 de septiembre de 2017, 11:31, Jesús Para Fernández <
j.para.fernandez en hotmail.com> escribió:

> 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]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>



-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170901/f3ccb802/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 15912 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170901/f3ccb802/attachment-0001.png>