<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Verdana;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
.MsoChpDefault
{mso-style-type:export-only;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.WordSection1
{page:WordSection1;}
/* List Definitions */
@list l0
{mso-list-id:1255750452;
mso-list-template-ids:-1;}
@list l0:level1
{mso-level-number-format:bullet;
mso-level-text:\F0B7;
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Symbol;}
@list l0:level2
{mso-level-number-format:bullet;
mso-level-text:o;
mso-level-tab-stop:72.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:"Courier New";
mso-bidi-font-family:"Times New Roman";}
@list l0:level3
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:108.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Wingdings;}
@list l0:level4
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:144.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Wingdings;}
@list l0:level5
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:180.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Wingdings;}
@list l0:level6
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:216.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Wingdings;}
@list l0:level7
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:252.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Wingdings;}
@list l0:level8
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:288.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Wingdings;}
@list l0:level9
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:324.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;
mso-ansi-font-size:10.0pt;
font-family:Wingdings;}
ol
{margin-bottom:0cm;}
ul
{margin-bottom:0cm;}
--></style></head><body lang=ES link=blue vlink="#954F72"><div class=WordSection1><p class=MsoNormal><span lang=EN-US>Estimados<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US>Yo pienso como Carlos Ortega, </span>sin embargo en algún momento alguien se confundió, esto continua, y hoy hay dos formas de expresar lo mismo, pero yo pienso que no es exacto, como que se utiliza como sinónimo.</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Voy a contar una experiencia, un profesor me contrata para realizar algunos cálculos, luego pasa el tiempo y este académico realiza un post grado, y me comenta que ahora entiende algunas cosas, y que utilizó el área bajo la curva para calcular.</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Pero hay algo que hacía que expresemos en dos idiomas diferentes, yo con los datos realicé una curva, luego las predicciones, busque integrales, y para cada animal para cada día y cada variable estimé lo que tendría como así también la sumatoria para los días deseados. El profesor piensa que en el cálculo del área bajo la curva tiene todas las producciones diarias de cada variable y cada animal sumadas, no realizamos una comparación más que la de esa charla, posiblemente en los números pueda llegar a dar parecido, sin embargo lo importante para mí es reconocer que se interpretan dos cosas distintas como iguales.</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Posiblemente hay mucho en común, en algunas áreas coincida en la práctica cuándo el modelo de la curva es simple. En la experiencia que contaba, yo le decía que el no conocía por animal, conocía el grupo, porque su curva es de todos, y en esa forma no podía determinar ni los animales mejores ni los peores. Pero ¿si no le importaba conocer por animal y solo por grupo?</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Javier Rubén Marcuzzi</p><p class=MsoNormal><o:p> </o:p></p><div style='mso-element:para-border-div;border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm'><p class=MsoNormal style='border:none;padding:0cm'><b>De: </b><a href="mailto:cof@qualityexcellence.es">Carlos Ortega</a><br><b>Enviado: </b>viernes, 1 de septiembre de 2017 9:02<br><b>Para: </b><a href="mailto:wilmercs@ufps.edu.co">WILMER CONTRERAS SEPULVEDA</a><br><b>CC: </b><a href="mailto:javier.ruben.marcuzzi@gmail.com">Javier Marcuzzi</a>; <a href="mailto:jorgeivanvelez@gmail.com">Jorge I Velez</a>; <a href="mailto:r-help-es@r-project.org">R-help-es</a>; <a href="mailto:j.para.fernandez@hotmail.com">Jesús Para Fernández</a><br><b>Asunto: </b>Re: [R-es] Area bajo la curva</p></div><p class=MsoNormal><o:p> </o:p></p><div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'>Hola<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'>No es el AUC de un modelo de clasificación binaria lo que estás buscando.<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'>Lo que quieres es integrar, calcular el área bajo tu vector.<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'>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....<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div><div><ul type=disc><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;margin-left:0cm;mso-list:l0 level1 lfo1'><span style='font-family:"Verdana",sans-serif'>Puedes interpolar esos puntos "NaN" intermedios o vaya suponer que la función es simétrica y rellenarlos "a mano".</span><o:p></o:p></li><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;margin-left:0cm;mso-list:l0 level1 lfo1'><span style='font-family:"Verdana",sans-serif'>Una vez interpolado, ajustarías estos puntos a una función (con un polinomio sería suficiente) y</span></li><li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;margin-left:0cm;mso-list:l0 level1 lfo1'><span style='font-family:"Verdana",sans-serif'>Finalmente con la función "integrate()" calculas el área.</span></li></ul></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'><img border=0 width=472 height=315 style='width:4.9166in;height:3.2812in' id="Imagen_x0020_3" src="cid:image001.png@01D32306.96D27FF0" alt="Imágenes integradas 1"></span><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'><o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'><o:p> </o:p></span></p></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'>Saludos,<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'>Carlos Ortega<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Verdana",sans-serif'><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a><o:p></o:p></span></p></div></div><div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal>El 1 de septiembre de 2017, 11:31, Jesús Para Fernández <<a href="mailto:j.para.fernandez@hotmail.com" target="_blank">j.para.fernandez@hotmail.com</a>> escribió:</p><blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-right:0cm'><p class=MsoNormal>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>________________________________<br>De: R-help-es <<a href="mailto:r-help-es-bounces@r-project.org">r-help-es-bounces@r-project.org</a>> en nombre de Javier Marcuzzi <<a href="mailto:javier.ruben.marcuzzi@gmail.com">javier.ruben.marcuzzi@gmail.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</p><div><div><p class=MsoNormal style='margin-bottom:12.0pt'>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/" target="_blank">https://www.r-bloggers.com/calculating-auc-the-area-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" target="_blank">https://stackoverflow.com/questions/4954507/calculate-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],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,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>> _______________________________________________<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" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>><br><br> [[alternative HTML version deleted]]<br><br>_______________________________________________<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" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br><br><br> [[alternative HTML version deleted]]<br><br>_______________________________________________<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" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a></p></div></div><p class=MsoNormal> [[alternative HTML version deleted]]<br><br><br>_______________________________________________<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" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a></p></blockquote></div><p class=MsoNormal><br><br clear=all></p><div><p class=MsoNormal><o:p> </o:p></p></div><p class=MsoNormal>-- </p></div><p class=MsoNormal><span style='font-family:"Verdana",sans-serif'>Saludos,<br>Carlos Ortega<br><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span></p><p class=MsoNormal><o:p> </o:p></p></div></body></html>