R help es - Jun 2017 - errror al determinar puntos óptimos de corte (librería: OptimalCutpoints)

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

	[[alternative HTML version deleted]]

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