- 在线时间
- 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 编辑 , T9 p: M8 |3 K6 Y2 W r% J, e" \
madio 发表于 2014-9-4 22:06 ![]()
. W% U* c6 t' w3 [& ]$ B$ m4 t写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
9 H1 Q3 J% z0 l1 D - # install.packages("AMORE")! K6 M6 V- D; |9 {
4 C6 X2 l7 p; t5 l1 b4 u. J6 A, S- library(AMORE)' R% j0 }7 [( N1 d6 T# e( w
& o. n5 z9 @/ L! P- data(iris). q G* D& I# ~( K' v/ Q. d
- x <- subset(iris, select = -Species)4 i2 {$ |. d; V! G2 h2 Z) E
- y <- Species/ _3 W! T5 N- k% ~9 D8 _0 L
- y <- as.numeric(y)
6 f5 s# G) A1 x0 }$ t - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
% d# c# b7 Z! u% [8 n - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
v- i m1 r/ o1 Z. K5 @8 ^ b - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
& F, ^: R1 N3 a - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
$ w( a+ V. V' A$ n. ^- v; j$ f4 b7 B+ `# U9 L% ]; _. j
|
|