- 在线时间
- 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 编辑 & H6 I( h" g A
madio 发表于 2014-9-4 22:06 ![]()
" Q+ h+ W" ^) D5 b写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
$ v4 w/ }: C# O3 z9 D - # install.packages("AMORE")
7 D* t- r, X. n1 B8 b. I! p+ v! q/ ?
1 @+ Z1 l0 \. \$ H& Y9 F# V8 h- library(AMORE)3 I; a! M- _' K6 Q+ Z d6 a( _& J' _
- \" E& P _' M+ M* M, y
- data(iris)
' R) T1 [, R+ t% S5 j8 e) V4 ?+ ] - x <- subset(iris, select = -Species)& |$ q/ ^+ H4 t @
- y <- Species
\" c5 x, ~: F\" ]4 q2 }$ J - y <- as.numeric(y)
$ E6 `/ x, U6 a, R: q& H - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,. n6 ^9 q1 o\" E8 p5 S; `
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")) r* w+ B/ k7 F* `
- result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
. x$ t# n8 d8 h- N- i: _ - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口% [) m( S0 j8 [9 a
$ [; M8 `6 m3 _ j) u% k/ K
|
|