2017-06-10 11:51 GMT-04:00 Fernando Sanchez via R-help-es < r-help-es@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]] _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es