- 在线时间
- 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 编辑
/ j0 G% _2 N1 ~madio 发表于 2014-9-4 22:06 ![]()
* U7 j( J" `( |9 f0 f3 A- N写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
. }3 p( ^6 a8 ]4 n\" u, [0 p - # install.packages("AMORE")5 O; ^0 Y& V2 C4 \ u0 M
. t; G+ ^2 i) I7 R, o- library(AMORE)& Q8 H+ ?6 h0 @4 T2 v: j
- ; U0 R. \, u3 A0 {( s1 D\" x
- data(iris)
& y) a& O. |3 @# Q2 e1 x, o3 V& e - x <- subset(iris, select = -Species)1 Z4 \0 N1 E3 y\" Z2 M% O1 U\" s) h; B
- y <- Species& X$ v6 q& H2 W& ?3 R
- y <- as.numeric(y)
9 o0 K- S9 P1 g' J. m - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,7 l- _0 h2 a. T' k
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")4 }: T% A1 _4 X\" L, V
- result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)3 I6 s$ J. m7 p$ o& D
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
2 [- v9 H1 r9 s& |8 b3 a9 \0 _7 U5 }
|
|