- 在线时间
- 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 d8 K# s( [' `7 G6 C0 Umadio 发表于 2014-9-4 22:06 ![]()
3 y! ~# ~& Q& T. C, @写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
. Q+ Y( c1 Z7 _ - # install.packages("AMORE")4 u) M q$ z3 I/ u0 p% f
# L2 S2 t, O; q0 n- library(AMORE)7 }# h2 t2 l$ J: G/ T
, ^& y/ q) \/ D& i- data(iris)
$ M' U9 [7 |9 V) ^4 d\" C - x <- subset(iris, select = -Species)
1 V0 V+ B' F5 z m: S\" Q' [ - y <- Species3 q\" v4 \# a) t\" ]
- y <- as.numeric(y)4 f2 s) [; O' f9 `+ K/ x! h) E
- net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,' A. p3 u- a0 }9 V/ A8 f3 q ^8 E
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
) J+ ]- h8 B\" S& F. ~3 u - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
; W* @- n$ H( o- w2 b0 ?; W6 e - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
[" S) w0 \* O- {- }# O9 F$ Y$ A
8 G0 N; S7 a) f$ Q; h3 W# i |
|