- 在线时间
- 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 编辑
5 G4 }0 g" X" {& C4 c* U1 J9 G" kmadio 发表于 2014-9-4 22:06 ![]()
7 E& b3 k6 Z1 S& U* G/ Y写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
- T! J% \+ v& J# r2 i% }6 O - # install.packages("AMORE")
) A4 x/ g/ h S3 _* }& m
3 I* m5 h8 h4 r\" Y+ X\" ?8 n- library(AMORE)
. O6 g- ?; j; I7 L4 { - , y6 h# d8 l6 V- l( K% _
- data(iris)
4 O! {* M+ n- m1 H8 g - x <- subset(iris, select = -Species)' W. W1 b% d) i# w
- y <- Species$ ~9 x- i: ^1 x6 V; _
- y <- as.numeric(y)
- v7 U1 D& n1 Q, ]3 X - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
# w9 H4 T$ ~+ I) [; k - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
\" s$ o: h+ X( Y% D\" |* ?/ z5 [ - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)2 E, s: a9 G( L2 Z) w2 d5 `
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
8 i( d: A; X8 t. X9 d
; o) X2 t" |* G& ~ |
|