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:
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?????
Boston
y no tengo ningún error. Por las dudas reinicia la sesión de R y vuelve a cargar los paquetes.str(uno)