可以查一下nnet包的帮助，建议看一下R软件教程（中文）（网上有下载）书中的"7.5 人工神经网络“。

之前一直在外地出差加班，没顾上来看。 十分感谢！！

这是我做过的一个例子，可供参考
> library(nnet)
> norm.data <- scale(newSet)

> nn <- nnet(y~., norm.data,size = 10,decay = 0.01, maxit = 1000, linout = T, trace = F)
> norm.preds <- predict(nn, norm.data)
> plot(norm.preds~ scale(newSet$y))
计算相对误差
> (nmse2 <- mean((norm.preds-scale(newSet$y))^2)/
+      mean((mean( scale(newSet$y))- scale(newSet$y))^2))