[R-es] errror al determinar puntos óptimos de corte (librería: OptimalCutpoints)
Fernando Sanchez
fernandsanche en yahoo.es
Dom Jun 11 11:16:56 CEST 2017
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]]
Más información sobre la lista de distribución R-help-es