R: как направить прогрессирующий вывод нейронной сети в конкретный файл? - PullRequest
Новая
       48

R: как направить прогрессирующий вывод нейронной сети в конкретный файл?

0 голосов
/ 07 декабря 2018

Пока нейронная сеть прогрессирует в R , она генерирует steps/ min thresh в консоли следующим образом 

hidden: 1    thresh: 1    rep: 1/1    steps:     1000   min thresh: 5506.086127
                                                 2000   min thresh: 131.2950623
                                                 2831   error: 1595263.315  time: 3.11 secs

Мой вопрос ... как направитьтакой вывод в конкретный файл?

1 Ответ

0 голосов
/ 08 декабря 2018

Я рассчитывал на поворот ... это могло бы сработать ...!

Окружить блок нейронная сеть командами раковина … как следует….

fileName <- file(paste0('neuralnet.log'), "w")

  a <- seq(1:1000)
  b <- a*2
  tds <- cbind(a, b)
  colnames(tds) <- c('a', 'b')

  sink(summary(fileName)$description, append = TRUE) # Direct all output to file
  net.sqrt <- neuralnet(b ~ a, tds, hidden=1, threshold=1, stepmax=1e5, rep = 3, startweights = NULL,
                        learningrate.limit = NULL,
                        learningrate.factor = list(minus = 0.5, plus = 1.2),
                        learningrate=NULL, lifesign = "full",
                        lifesign.step = 1000, 
                        algorithm = c("rprop+"),
                        err.fct = "sse", act.fct = "logistic",
                        linear.output = TRUE, exclude = NULL,
                        constant.weights = NULL, likelihood = FALSE)
  sink() # Turn off buffing to file
  close(fileName)

если у вас есть лучшее решение ... ценим ваше мнение ...

...