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
    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. 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 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) 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 ... 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 that you have read and understand our privacy policy and code of conduct.

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