- 在线时间
- 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 编辑 0 F( W7 O* c) ]7 f) N0 h# l
madio 发表于 2014-9-4 22:06 ![]()
% K) ^! k- g* n% w写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化' E- C( W z0 A
- # install.packages("AMORE")% c: g( T: q\" k) Q* l# r: _* C
6 m# x% o U: d' @& h- p- library(AMORE)$ a& r\" H' Q% w0 } j) a% M, O
1 l5 F9 @* w! c) |- data(iris)
- W% s' { x# o6 Z - x <- subset(iris, select = -Species)
% e) |\" b) G; d2 U! \ - y <- Species
6 V- D' ]2 Q\" C! z( B2 {% s5 E1 r3 S - y <- as.numeric(y)
& ~' A3 |8 z) o- w8 \9 J - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,7 y+ A1 j$ m* q/ @% G. R
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")+ j3 I; z6 v' P8 k6 ^
- result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)% ]4 f( R* V- V( O
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口. m4 \8 X x7 W- I3 X' ~
7 `, W+ | W t2 x( c# z |
|