- 在线时间
- 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 编辑
: d4 H% n) R3 p0 Lmadio 发表于 2014-9-4 22:06 0 R2 b! i; l3 F8 W7 N
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
! {' w1 Z( M) Z* w d) ] e - # install.packages("AMORE")
7 ^+ A( J- w; V& @! U! X6 h0 P\" f
1 ~0 W. N1 r8 r5 e- s3 W' T7 y- k4 m- library(AMORE) p4 H |( L' L7 \4 W
- 3 w7 D* V\" b/ J6 [6 ]
- data(iris)& q+ c' |5 H1 J4 X% d
- x <- subset(iris, select = -Species)
/ P- s6 P\" L# ` - y <- Species
# g4 d) L1 b7 r5 v; q - y <- as.numeric(y)) e, l% }- c) r3 _* U- d
- net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
\" K z3 s3 U' ~2 k) S) r- ` - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd"): y/ c/ x) U! b9 C7 k
- result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)2 q; b3 N! L# w: ?) `, M
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口4 A9 q4 d2 {1 e
. C4 v. v5 h2 l4 ` |
|