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