<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Hola</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">No es el AUC de un modelo de clasificación binaria lo que estás buscando.</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Lo que quieres es integrar, calcular el área bajo tu vector.</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">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....</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div><div class="gmail_default" style=""><ul style=""><li style=""><font face="verdana, sans-serif">Puedes interpolar esos puntos "NaN" intermedios o vaya suponer que la función es simétrica y rellenarlos "a mano".</font></li><li style=""><font face="verdana, sans-serif">Una vez interpolado, ajustarías estos puntos a una función (con un polinomio sería suficiente) y</font></li><li style=""><font face="verdana, sans-serif">Finalmente con la función "integrate()" calculas el área.</font></li></ul></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><img src="cid:ii_15e3d4dd965462ce" alt="Imágenes integradas 1" width="472" height="315"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Saludos,</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Carlos Ortega</div><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small"><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a></div></div><div class="gmail_extra"><br><div class="gmail_quote">El 1 de septiembre de 2017, 11:31, Jesús Para Fernández <span dir="ltr"><<a href="mailto:j.para.fernandez@hotmail.com" target="_blank">j.para.fernandez@hotmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">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<br>
<br>
Échale un ojo.<br>
______________________________<wbr>__<br>
De: R-help-es <<a href="mailto:r-help-es-bounces@r-project.org">r-help-es-bounces@r-project.<wbr>org</a>> en nombre de Javier Marcuzzi <<a href="mailto:javier.ruben.marcuzzi@gmail.com">javier.ruben.marcuzzi@gmail.<wbr>com</a>><br>
Enviado: viernes, 1 de septiembre de 2017 4:00<br>
Para: Jorge I Velez; WILMER CONTRERAS SEPULVEDA<br>
Cc: R-help-es<br>
<div><div class="h5">Asunto: Re: [R-es] Area bajo la curva<br>
<br>
Estimado Wilmer Contreras Sepulveda<br>
<br>
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 <a href="https://www.r-bloggers.com/calculating-auc-the-area-under-a-roc-curve/" rel="noreferrer" target="_blank">https://www.r-bloggers.com/<wbr>calculating-auc-the-area-<wbr>under-a-roc-curve/</a> , lógicamente aparecerán tantas alternativas que puede llegar a confundirse respecto a cuál es conveniente para su caso.<br>
<br>
Javier Rubén Marcuzzi<br>
<br>
De: Jorge I Velez<br>
Enviado: jueves, 31 de agosto de 2017 22:43<br>
Para: WILMER CONTRERAS SEPULVEDA<br>
CC: R-help-es<br>
Asunto: Re: [R-es] Area bajo la curva<br>
<br>
Buenas noches, Wilmer.<br>
<br>
Puedes intentar la aproximación sugerida en<br>
<a href="https://stackoverflow.com/questions/4954507/calculate-the-area-under-a-curve" rel="noreferrer" target="_blank">https://stackoverflow.com/<wbr>questions/4954507/calculate-<wbr>the-area-under-a-curve</a><br>
<br>
<br>
## preparación<br>
x <- c(1,2,3,4,5,6,7,8,9,10)<br>
y <- c(0,2,15,30,50,NaN,NaN,10,2,1)<br>
d <- data.frame(x, y)<br>
d <- d[complete.cases(d),]<br>
id <- order(d$x)<br>
<br>
## cálculo<br>
require(zoo)<br>
with(d, sum(diff(x[id])*rollmean(y[id]<wbr>,2)))<br>
## [1] 169.5<br>
<br>
Espero sea de utilidad.<br>
Jorge.-<br>
<br>
<br>
2017-08-31 19:17 GMT-05:00 WILMER CONTRERAS SEPULVEDA <<a href="mailto:wilmercs@ufps.edu.co">wilmercs@ufps.edu.co</a>><br>
:<br>
<br>
> Buenas noches.<br>
><br>
> Quisiera saber si existe una libreria o función que me calcule el área bajo<br>
> la curva de dos vectores de números. Ademas esta debe tener en cuenta si<br>
> existen datos faltantes o NaN.<br>
><br>
> Por ejemplo calcular el área bajo la curva del vector en el eje x:<br>
><br>
> x<- c(1,2,3,4,5,6,7,8,9,10)<br>
><br>
> y el vector en el eje y:<br>
><br>
> y<-c(0,2,15,30,50,NaN,NaN,10,<wbr>2,1)<br>
><br>
><br>
> Muchas gracias.<br>
><br>
> --<br>
><br>
> *Wilmer Contreras Sepulveda*<br>
><br>
> *Grupo de Investigación en Desarrollo de Microelectronica Aplicada*<br>
> *Universidad Francisco de Paula Santander *<br>
><br>
>         [[alternative HTML version deleted]]<br>
><br>
> ______________________________<wbr>_________________<br>
> R-help-es mailing list<br>
> <a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
> <a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/<wbr>listinfo/r-help-es</a><br>
><br>
<br>
        [[alternative HTML version deleted]]<br>
<br>
______________________________<wbr>_________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/<wbr>listinfo/r-help-es</a><br>
<br>
<br>
        [[alternative HTML version deleted]]<br>
<br>
______________________________<wbr>_________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/<wbr>listinfo/r-help-es</a><br>
<br>
</div></div>        [[alternative HTML version deleted]]<br>
<br>
<br>______________________________<wbr>_________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/<wbr>listinfo/r-help-es</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><span style="font-family:verdana,sans-serif">Saludos,</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif">Carlos Ortega</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span></div>
</div>