- 在线时间
- 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 编辑 ; ~ `# ~# u; H: N( V! [! p: d
madio 发表于 2014-9-4 22:06 7 W- X- y& J5 e- ^7 Q( @4 u
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化2 `: ]/ |. S& K1 g. A& f
- # install.packages("AMORE")
6 p/ F0 Q) w1 C' G# p
# o9 C- g `8 w4 ?0 w- library(AMORE)9 i1 I/ m& k7 Q) ]; o
8 n5 u$ N0 ?2 \$ t, D. q5 O) O& `- data(iris)
9 h9 ]/ l3 v3 ~8 M% l% p, u - x <- subset(iris, select = -Species)
* d\" u4 `\" @8 `' H0 } - y <- Species% J& @* R) g% f; J* V4 Y( K
- y <- as.numeric(y)! f1 x# w( s\" F! F e2 Q
- net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
2 v! l' {* u4 E, ?5 M - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")+ Q; H3 X3 q( ~\" J! t) @* Z; |
- result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
. S4 z. J3 F$ h - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
. i) e7 g. \9 [9 v$ c- J/ `) t% B! b
|
|