- 在线时间
- 4 小时
- 最后登录
- 2014-9-11
- 注册时间
- 2014-9-1
- 听众数
- 11
- 收听数
- 1
- 能力
- 0 分
- 体力
- 36 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 14
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 9
- 主题
- 2
- 精华
- 0
- 分享
- 0
- 好友
- 1
升级   9.47% TA的每日心情 | 奋斗 2014-9-11 14:56 |
---|
签到天数: 2 天 [LV.1]初来乍到
- 自我介绍
- 算法开发者 数学专业 R语言使用者
|
本帖最后由 我想我十号 于 2014-9-7 10:05 编辑
- P& M' Y( C1 `) Xmadio 发表于 2014-9-4 22:06 , N6 p8 ^; V# w' I; o s: X: ?! y
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化 G' ]: s8 p- M Q& |
- # install.packages("AMORE")
; F# g# q( S4 n$ h* n9 u* U; U - u4 \8 t/ F0 O
- library(AMORE)
, U, E$ E. R# x& K+ x - ; l0 _% F. C! \0 Q& A# G- W
- data(iris)
1 Q% n8 v! K8 q( v/ h/ H - x <- subset(iris, select = -Species)( g1 ~/ a1 l4 l; f; \3 J9 Y( I1 \) H
- y <- Species
7 x( W1 s& f g$ e# j; p) m7 B - y <- as.numeric(y)
9 q w/ X1 O2 r* R\" @6 u - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9, w) X3 v\" U2 F
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
R3 w2 h2 W0 z2 b' \ - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)1 `9 B3 P\" }% d5 x% G) O+ \ c
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口9 B1 w% A; N0 l9 k E# x! N1 |" F
: ^% {" Z/ [& V5 W/ l# G+ o |
|