- 在线时间
- 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 编辑 6 \8 r! F; q: t! H/ e) s% T
madio 发表于 2014-9-4 22:06 ![]()
/ M) s( c R6 g: z写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化7 N! y! z( o# `4 Y x$ n1 a
- # install.packages("AMORE")\" X\" `; |\" ~' d9 S' j
- & `\" o- w6 ~8 X3 x
- library(AMORE)
. _. K& o' c; ~3 m0 X0 f# F - 0 g\" y9 y* ~0 [5 s7 [+ v. t! Z\" e
- data(iris)
& ~, m# U4 p c+ k) m- ~% ]: M2 z - x <- subset(iris, select = -Species)
, R/ `- k/ e- F/ o0 Z3 j: Q* p - y <- Species+ a! K: D0 o. i! o/ X
- y <- as.numeric(y)
7 W6 W( m\" Y5 K, h$ Z0 w - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,7 Z% M& ?- j& w0 H) s; S* `
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")5 b% O0 z* B8 ]; r9 S/ H
- result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)9 Z! C/ R# I1 |: h6 u
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
1 z" D6 j f! P) J! S( `; Q( j' m6 Z3 l e6 _4 O* h; d( Z
|
|