- 在线时间
- 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 编辑
}, [6 c( `$ v8 L& [* x0 Fmadio 发表于 2014-9-4 22:06 ![]()
4 p* e. O: \5 C3 I3 @5 ^9 e1 q写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化( L$ R5 z9 b: g6 a; f
- # install.packages("AMORE")
0 \/ R! ]; O2 T9 Q& C7 F% J
8 R) _8 N1 _* z: z, L* @* v- library(AMORE)
! p\" P2 a: k\" B, ]% Z* j
! c! Z& r- l0 G. [* w- data(iris)2 |$ ^2 s' j/ I5 [7 S5 \% x' l
- x <- subset(iris, select = -Species)- l; s% `+ d2 K& J0 M
- y <- Species
+ E E, c2 | c- b9 C y8 d - y <- as.numeric(y)
1 F- K! A, p( v! A, k; Q2 M - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
\" f D- d9 M: u; x - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
6 c! V/ D n5 b5 L2 Y - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
! ]6 A$ D1 g- Q1 t* P$ x - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
6 H+ s( O9 w/ G! g) U. a' V5 {) Z/ A0 r( M- }0 H& V
|
|