- 在线时间
- 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 编辑
7 O; Y8 e1 h0 L: p2 \1 Bmadio 发表于 2014-9-4 22:06 ![]()
$ n7 |1 |+ ^$ G写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化* f! @* t+ I\" ~5 B+ ?
- # install.packages("AMORE")
! c; T, D8 F' O, D1 L
% y$ b# y& O4 |4 T# P8 i0 ]- library(AMORE)8 v3 i* |2 ?- Y5 i! _* x4 `# l
' V\" K' d3 N Q c* G3 ^- data(iris)
$ K2 z* I( y9 Y7 c9 A: A. f - x <- subset(iris, select = -Species)
- z\" O2 p+ j9 {' R5 N - y <- Species( U. D$ c4 X$ e& s5 X3 h
- y <- as.numeric(y)
2 z2 v; ]+ O' w$ c y4 C - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
' Y7 N+ x2 P. p; m - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd"), \4 o* I/ L3 @+ C7 G! u
- result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100) y) }. @1 A/ W, Q# ~
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口9 b- k5 u5 {+ ~ x# l& V
U8 @1 k9 Q- g$ E. ^5 [7 X
|
|