powered by
train.compare(net.start, P, T, ideal=NA, max.epoch, show.step, Stao=1000, criteria=c("MSE","LMLS","TAO"))
train