- 在线时间
- 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 编辑 8 i9 L- T0 e/ p5 ]- ~- e: m
madio 发表于 2014-9-4 22:06 . E; o, Z$ a. F
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化8 P2 m\" K- d+ ^; Y# u: v! B
- # install.packages("AMORE")
8 r\" h4 Y- V; s: N
3 U8 m0 S R1 Y) e( ^- library(AMORE)/ O# p: d% G& q% M) J; u8 `( d
- ' `5 }7 m! D& o* J
- data(iris)9 z3 m1 R; m8 t9 j+ R1 v. r3 u) f
- x <- subset(iris, select = -Species)
0 C4 ]- _+ O. k0 i/ K& H - y <- Species
! W; Y% k2 B1 t( c! p: w - y <- as.numeric(y)
& r; h' u; |+ _ @1 N\" L - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,9 b9 G7 ?# c* f$ h7 F! p9 K: \! O: I
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
, s# w9 g# o% U, L - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)/ R( B7 B2 z\" M( [2 s, m7 I
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
" d B. V: N" u; x( e; m' @5 v0 g) H# r: `4 S7 G
|
|