0

Tengo la siguiente duda:

Estoy haciendo un red neuronal con nnet en R.

  library(RODBC)

  library(nnet)

  library(neuralnet)

  library(devtools)

  library(reshape2)

  library(readxl)

  library(dplyr)

  library(reshape)

  library(readxl)



source('C:nnet_plot_update.r')

datos <- read_xlsx("Dataset.xlsx", sheet=1)

input <- select(datos, -EMR)
output <- select(datos, EMR)

net <- neuralnet(EMR ~ TC241.1 + TC221.1 + TI221.6 + TI222.3 + PC221.3 + PC225.4 + LC221.2 + LI222.2 + CALC.16 + CALC.22, datos, hidden =c(6), threshold=0.01)

plot(net)

test <- read_xlsx("Dataset.xlsx", sheet=4)

test1 <- read_xlsx("Dataset.xlsx", sheet=3)


prediccion <- neuralnet::compute(net,test)

results <- data.frame(actual = test1$EMR , prediccion = prediccion$net.result)

results <- format(round(results, 2))

print(results)



test2 <-  data.frame(200.78,263.9,221.27,221,197.06,4.97,24.94,16.62,74.92,8000.0)


prediccionnn <- neuralnet::compute(net,test2)

results <- data.frame(prediccion = prediccionnn$net.result)

results <- format(round(results, 2))

print(results)

Este seria el codigo completo

4
  • Hola Andres, bienvenido. Te sugiero hacer dos verificaciones: 1. que sheet = 7 y sheet = 5 no son iguales en tu documento de excel. 2. Que el objeto tt en el entorno global es lo que quieres que sea. Si read_xlsx falló silenciosamente quizás estés trabajando con una versión anterior de tt y por eso tienes el mismo resultado. Es buena práctica limpiar el entorno de trabajo con rm(list=ls()) ante este tipo de errores y volver a ejecutar el script. Asegúrate primero de poder volver a restaurarlo a partir del código.
    – mpaladino
    el 12 nov. 2018 a las 18:12
  • Gracias por la respuesta. Sigo intentando y me sigue dando igual. La verdad que es raro como se comportan los valores dentro de la red.
    – Andres
    el 12 nov. 2018 a las 23:11
  • Andres, es muy poco lo que podemos hacer sin un ejemplo mínimo verificable trata de armarlo para que podamos reproducir tu problema. Saludos. el 12 nov. 2018 a las 23:51
  • Hola Patricio. Subí el código completo para que se pueda ver . Desde ya muchas gracias .
    – Andres
    el 13 nov. 2018 a las 18:23

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.