nn.r

> tuning.nn(trn,neuron,10,0.7)
[1] "=== cross validation error estimation ==="
[1] "depth= 1  : error= 70.9794189514517 +- 15.904800477383"
[1] "depth= 2  : error= 70.9722170232778 +- 15.8954005190479"
[1] "depth= 3  : error= 71.0124803004767 +- 15.8597654828364"
[1] "depth= 4  : error= 70.5867870706421 +- 15.818947243105"
[1] "depth= 5  : error= 70.7432130613939 +- 15.6752259506747"
[1] "depth= 6  : error= 71.2585730501765 +- 16.1677503694949"
[1] "depth= 7  : error= 71.0870255049561 +- 16.0324643862916"
[1] "depth= 8  : error= 71.0129340109873 +- 15.9439431180934"
[1] "depth= 9  : error= 69.2765991412325 +- 17.4238413145427"
[1] "depth= 10  : error= 68.0890805039481 +- 18.795955239098"
[1] 10
> #normalized data
> tuning.nn(ntrn,neuron,10,0.7)
[1] "=== cross validation error estimation ==="
[1] "depth= 1  : error= 8.36827085978132 +- 1.38729760554322"
[1] "depth= 2  : error= 10.1439153325811 +- 2.97320904104239"
[1] "depth= 3  : error= 10.5033178163002 +- 3.07957861823334"
[1] "depth= 4  : error= 9.326750833886 +- 2.41268456494504"
[1] "depth= 5  : error= 8.30320248745101 +- 2.31702615480129"
[1] "depth= 6  : error= 8.28338957708407 +- 1.5092471033646"
[1] "depth= 7  : error= 7.55265022184259 +- 2.1759082753909"
[1] "depth= 8  : error= 7.30288737880777 +- 1.94906339595741"
[1] "depth= 9  : error= 8.06655827016435 +- 1.5545036672556"
[1] "depth= 10  : error= 8.67308490729445 +- 2.44640219350546"
[1] 8