[R-es] errror al determinar puntos óptimos de corte (librería: OptimalCutpoints)

[Fernando Sanchez]

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