Implementation

trainmse = {netRprop[MeanSquareError], netQuickprop[MeanSquareError], netBackpropBatch[MeanSquareError], netBackpropInc[MeanSquareError], netBackpropShuffle[MeanSquareError]}

RowBox[{{, RowBox[{0.00212599, ,, 0.00272491, ,, 0.00359437, ,, 0.00487619, ,, 0.00179073}], }}]

mse[output_] := Total[(data_〚All, 2, 1〛 - output)^2]/Length[output]

calcmse = {mse[predRprop], mse[predQuickprop], mse[predBackpropBatch], mse[predBackpropInc], mse[predBackpropShuffle]}

RowBox[{{, RowBox[{0.00212599, ,, 0.00272491, ,, 0.00359437, ,, 0.00487619, ,, 0.00179073}], }}]

100 (trainmse - calcmse)/calcmse

RowBox[{{, RowBox[{0.0000103285, ,, RowBox[{-, 0.0000158327}], ,, RowBox[{-, 1.9558*10^-6}], ,, 5.1798*10^-6, ,, 5.78165*10^-6}], }}]

Created by Mathematica  (December 5, 2004)

Hosted by www.Geocities.ws

1