*
* Example INTERACT.DAT from pp 691-701
*
open data interact.dat
data(format=free,org=columns) 1 60 store sx1 sx2 sx1x2 sy
*
linreg sy
# constant sx1 sx2
*
linreg sy
# constant sx1 sx2 sx1x2
*
nnlearn(hidden=2,save=nnmodel,iters=5000)
# sx1 sx2
# sy
nntest(validate) / nnmodel
# sx1 sx2
# sy
disp "RMS of 2x2x1 model" sqrt(%funcval)
*
nnlearn(hidden=2,save=nnmodel,iters=10000)
# sx1 sx2 sx1x2
# sy
nntest(validate) / nnmodel
# sx1 sx2 sx1x2
# sy
disp "RMS of 3x2x1 model" sqrt(%funcval)