###前提・実現したいこと
Rにて手書き数字データMNISTをnnetで学習させたいと考えています。
サイトを参考に実行してみましたが、エラーが出てしまいうまくいきません。
###発生している問題・エラーメッセージ
There were 40 warnings (use warnings() to see them) > warnings() 警告メッセージ: 1: In min(x) : no non-missing arguments to min; returning Inf 2: In max(x) : no non-missing arguments to max; returning -Inf 3: In min(x) : no non-missing arguments to min; returning Inf 4: In max(x) : no non-missing arguments to max; returning -Inf 5: In min(x) : no non-missing arguments to min; returning Inf 6: In max(x) : no non-missing arguments to max; returning -Inf 7: In min(x) : no non-missing arguments to min; returning Inf 8: In max(x) : no non-missing arguments to max; returning -Inf 9: In min(x) : no non-missing arguments to min; returning Inf 10: In max(x) : no non-missing arguments to max; returning -Inf 11: In min(x) : no non-missing arguments to min; returning Inf 12: In max(x) : no non-missing arguments to max; returning -Inf 13: In min(x) : no non-missing arguments to min; returning Inf 14: In max(x) : no non-missing arguments to max; returning -Inf 15: In min(x) : no non-missing arguments to min; returning Inf 16: In max(x) : no non-missing arguments to max; returning -Inf 17: In min(x) : no non-missing arguments to min; returning Inf 18: In max(x) : no non-missing arguments to max; returning -Inf 19: In min(x) : no non-missing arguments to min; returning Inf 20: In max(x) : no non-missing arguments to max; returning -Inf 21: In min(x) : no non-missing arguments to min; returning Inf 22: In max(x) : no non-missing arguments to max; returning -Inf 23: In min(x) : no non-missing arguments to min; returning Inf 24: In max(x) : no non-missing arguments to max; returning -Inf 25: In min(x) : no non-missing arguments to min; returning Inf 26: In max(x) : no non-missing arguments to max; returning -Inf 27: In min(x) : no non-missing arguments to min; returning Inf 28: In max(x) : no non-missing arguments to max; returning -Inf 29: In min(x) : no non-missing arguments to min; returning Inf 30: In max(x) : no non-missing arguments to max; returning -Inf 31: In min(x) : no non-missing arguments to min; returning Inf 32: In max(x) : no non-missing arguments to max; returning -Inf 33: In min(x) : no non-missing arguments to min; returning Inf 34: In max(x) : no non-missing arguments to max; returning -Inf 35: In min(x) : no non-missing arguments to min; returning Inf 36: In max(x) : no non-missing arguments to max; returning -Inf 37: In min(x) : no non-missing arguments to min; returning Inf 38: In max(x) : no non-missing arguments to max; returning -Inf 39: In min(x) : no non-missing arguments to min; returning Inf 40: In max(x) : no non-missing arguments to max; returning -Inf
###該当のソースコード
R
1# MNISTのトレーニングデータ読み込み 2train <- read.csv("MNIST/train.csv") 3train[,"label"] <- as.factor(train[,"label"]) 4 5# 42000件のデータを40000件のトレーニングデータと2000件のテストデータに分割 6training.index <- 1:40000 7mnist.train <- train[training.index,] 8mnist.test <- train[-training.index,] 9 10# トレーニングデータをニューラルネットで学習 11mnist.nnet <- nnet(label ~ ., size=3, data=mnist.train, MaxNWts=4000) 12# weights: 2395 13initial value 10623.019233 14iter 10 value 7643.225165 15iter 20 value 7193.715233 16iter 30 value 7126.619016 17iter 40 value 7061.769417 18iter 50 value 7024.126638 19iter 60 value 6908.916549 20iter 70 value 6849.994496 21iter 80 value 6753.666635 22iter 90 value 6671.239935 23iter 100 value 6639.331857 24final value 6639.331857 25stopped after 100 iterations 26 27# テストデータを使って評価 28mnist.result <- predict(mnist.nnet, mnist.test, type="class") 29table(mnist.test$label, mnist.result, dnn = c("Actual", "Predicted")) 30< table of extent 0 > 31↑ここの結果がイマイチ? 32 33# テストデータの正解、予測を表示 34range <- 1:20 35view_train(mnist.test, range) 36< table of extent 10 x 0 > 37 ↑ここの結果がイマイチ? 38 39# テストデータの正解、予測を表示 40range <- 1:20 41view_train(mnist.test, range) 42There were 40 warnings (use warnings() to see them)
###参考にさせていただいたサイト
http://totech.hateblo.jp/entry/2016/04/11/093802
###補足情報(言語/FW/ツール等のバージョンなど)
R-3.3.1、Rstudio 0.99.902
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/06/27 03:14