1

Estoy intentando hacer una red neuronal en R. Estos son mis datos, y deseo saber si a oartir de determinadas caracteristicas el resultado del tratamiento para los pacientes es positivo o negativo: Al conjunto de datos le he llamdo: uno

library(MASS)
ibrary(neuralnet)
library(ggplot2)
set.seed(65)
datos    <- uno
datos<-as.data.frame(datos)
n        <- nrow(datos)
muestra  <- sample(n, n * .70)
train    <- datos[muestra, ]
test     <- datos[-muestra, ]
maxs      <- apply(train, 2, max)
mins      <- apply(train, 2, min)
datos_nrm <- as.data.frame(scale(datos, center = mins, scale = maxs - mins))
train_nrm <- datos_nrm[muestra, ]
test_nrm  <- datos_nrm[-muestra, ]
maxs      <- apply(train, 2, max)
mins      <- apply(train, 2, min)
datos_nrm <- as.data.frame(scale(datos, center = mins, scale = maxs - mins))
train_nrm <- datos_nrm[muestra, ]
test_nrm  <- datos_nrm[-muestra, ]

nms  <- names(train_nrm)
frml <- as.formula(paste("Result_of_Treatment~", 
paste(nms[!nms %in% "Result_of_Treatment"], collapse = " + ")))

El aviso que me da es el siguiente y por eso la red no da los resultados esperados: AVISO: Warning in if (nchar(cmd) <= width) return(cmd) : la condición tiene longitud > 1 y sólo el primer elemento será usado

Los datos originales con los que se hacen el script, son unos datos de base de R que se llaman Boston, cuando lo ejecuto con ese conjunto de datos no sale esta advertencia.

datos    <- Boston

Alguien sabe a que se debe este error?????

12
  • Como sugerencia: El fragmento con la muestra de los datos que usas, también se podía poner como texto.
    – Alfabravo
    Commented el 11 ago. 2020 a las 16:27
  • Acabo de correr tu código usando Boston y no tengo ningún error. Por las dudas reinicia la sesión de R y vuelve a cargar los paquetes. Commented el 11 ago. 2020 a las 16:34
  • Con Boston no da ningun error, pero con mi conjunto de datos si da error. No entiendo porque si mis datos son semejantes al conjunto de datos Boston. nms <- names(train_nrm) frml <- as.formula(paste("medv ~", paste(nms[!nms %in% "medv"], collapse = " + "))) eso es lo que ponen en el scrip original. La variable medv del paquete Boston es semejante a la de result of tratament con la diferencia que la mia es 0 y 1 , positivo o negativo. Me sigue saliendo esa advertencia Commented el 11 ago. 2020 a las 16:38
  • Asiel, sin poder ver los datos, no vamos a poder darte una respuesta. Si no puedes compartirlos, al menos agrega la estructura de los mismos str(uno) Commented el 11 ago. 2020 a las 16:51
  • 'data.frame': 90 obs. of 7 variables: $ sex : num 1 1 1 1 1 1 1 1 1 2 ... $ age : num 35 29 50 32 67 41 36 59 20 34 ... $ Time : num 12 7 8 11.75 9.25 ... $ Number_of_Warts : num 5 5 1 7 1 2 2 3 12 3 ... $ Type : num 1 1 3 3 1 2 1 3 1 3 ... $ Area : num 100 96 132 750 42 20 8 20 6 150 ... $ Result_of_Treatment: num 0 1 0 0 0 1 0 0 1 0 ... Commented el 11 ago. 2020 a las 16:55

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.