Hola a todos, Al ejecutar el código que veis más abajo:  library(OptimalCutpoints)prediccion<-c(0.49165923,0.52759793,0.30213400,0.33468349,0.14979703,0.47401846,0.52216404,0.42018794,0.92168073,0.76893929,0.83362668,0.38251162,0.70803701,0.49165923,0.94462558) real<-c(0,1,0,0,0,0,1,1,1,1,1,0,1,0,1)datos_OPTIMO<-cbind(prediccion,real) cutpoint1 <- optimal.cutpoints(X = "prediccion", status = "real",tag.healthy = 1, methods = "Youden", data = datos_OPTIMO,categorical.cov =NULL, pop.prev = NULL,control = control.cutpoints(), ci.fit = TRUE) Me sale el siguiente error: Error: Not all needed variables are supplied in 'data'. ¿Alguien me podrÃa decir qué estoy haciendo mal? gracias, Fernando
[R-es] errror al determinar puntos óptimos de corte (librería: OptimalCutpoints)
3 messages · Freddy Omar López Quintero, Fernando Sanchez
2017-06-10 11:51 GMT-04:00 Fernando Sanchez via R-help-es < r-help-es en r-project.org>:
library(OptimalCutpoints)prediccion<-c(0.49165923,0.52759793,0.30213400,0. 33468349,0.14979703,0.47401846,0.52216404,0.42018794,0.92168073,0. 76893929,0.83362668,0.38251162,0.70803701,0.49165923,0.94462558) real<-c(0,1,0,0,0,0,1,1,1,1,1,0,1,0,1)datos_OPTIMO<-cbind(prediccion,real) cutpoint1 <- optimal.cutpoints(X = "prediccion", status = "real",tag.healthy = 1, methods = "Youden", data = datos_OPTIMO,categorical.cov =NULL, pop.prev = NULL,control = control.cutpoints(), ci.fit = TRUE)
?Creo que el detalle está en que tus datos son una matriz y no un data.frame.? Añadiendo: datos_OPTIMO<-data.frame(datos_OPTIMO)
a tu código, obtengo: ?> cutpoint1
Call:
optimal.cutpoints.default(X = "prediccion", status = "real",
tag.healthy = 1, methods = "Youden", data = datos_OPTIMO,
categorical.cov = NULL, pop.prev = NULL, control =
control.cutpoints(),
ci.fit = TRUE)
Optimal cutoffs:
Youden
1 0.1498
Ignoro si es lo que se espera de respuesta. ¡Salud!
«PÃdeles sus tÃtulos a los que te persiguen, pregúntales cuándo nacieron, diles que te demuestren su existencia.» Rafael Cadenas [[alternative HTML version deleted]]
Hola Freddy Omar,
Efectivamente, asà funciona y es lo que necesitaba. MuchÃsimas gracias.
De: Freddy Omar López Quintero <freddy.lopez.quintero en gmail.com>
Para: Fernando Sanchez <fernandsanche en yahoo.es>
CC: Lista R. <r-help-es en r-project.org>
Enviado: Sábado 10 de junio de 2017 23:36
Asunto: Re: [R-es] errror al determinar puntos óptimos de corte (librerÃa: OptimalCutpoints)
2017-06-10 11:51 GMT-04:00 Fernando Sanchez via R-help-es <r-help-es en r-project.org>:
library(OptimalCutpoints) prediccion<-c(0.49165923,0. 52759793,0.30213400,0. 33468349,0.14979703,0. 47401846,0.52216404,0. 42018794,0.92168073,0. 76893929,0.83362668,0. 38251162,0.70803701,0. 49165923,0.94462558)
real<-c(0,1,0,0,0,0,1,1,1,1,1, 0,1,0,1)datos_OPTIMO<-cbind( prediccion,real)
cutpoint1 <- optimal.cutpoints(X = "prediccion", status = "real",tag.healthy = 1, methods = "Youden", data = datos_OPTIMO,categorical.cov =NULL, pop.prev = NULL,control = control.cutpoints(), ci.fit = TRUE)
?Creo que el detalle está en que tus datos son una matriz y no un data.frame.? Añadiendo:
datos_OPTIMO<-data.frame(datos_OPTIMO)
a tu código, obtengo:
?> cutpoint1
Call:
optimal.cutpoints.default(X = "prediccion", status = "real",
   tag.healthy = 1, methods = "Youden", data = datos_OPTIMO,
   categorical.cov = NULL, pop.prev = NULL, control = control.cutpoints(),
   ci.fit = TRUE)
Optimal cutoffs:
 Youden
1 0.1498
Ignoro si es lo que se espera de respuesta.
¡Salud!
«PÃdeles sus tÃtulos a los que te persiguen, pregúntales cuándo nacieron, diles que te demuestren su existencia.» Rafael Cadenas [[alternative HTML version deleted]]