#b-navbar { height:0px; display:none; visibility:hidden; }

ページ

2014年8月4日月曜日

R言語:nnet:plot.nn:線が出ないときの対処方法

ニューラルネットワークの解析結果を視覚化するplot.nnは素晴らしい。



参考:http://hosho.ees.hokudai.ac.jp/~kubo/ce/NeuralNetwork.html
  • nnet() で作った neural network の例 (作図は久保先生の自作関数 plot.nn())
    http://hosho.ees.hokudai.ac.jp/~kubo/log/2007/img07/plot.nn.txt



ただ、線が出ないときがある。ニューロンだけ表示されて、あとが真っ白という感じ。





11行目
col.w = function(w) ifelse(w > 0, "#ff400040", "#0000ff40"),

このカラーコードが8桁になっているためであろう。


そこで、
色をここから選んで持ってきて
http://html-color-codes.info/japanese/




修正した例

col.w = function(w) ifelse(w > 0, "#0000FF", "#FF0040"),





線が出た








keywords: R nnet grahical graph draw figures bug display line show 

余談ですが、線を太くしたいときは、10行目の w * 3 を w * 5 とか大きい数字に変えるとええで


0 件のコメント:

コメントを投稿