- 在线时间
- 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 编辑
& f* `3 t5 S" l z, d! `madio 发表于 2014-9-4 22:06 ![]()
3 }0 `1 a+ Q6 o" E L5 v7 k写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化1 S+ |) k# X7 k: n\" T3 E
- # install.packages("AMORE")/ I* b( I8 t& V/ P
- 1 ?' Y% Z/ g4 X; F9 K\" H @6 t
- library(AMORE)
1 G( I) T& }- `6 {$ v
; U6 [2 j% i, C9 K) R& z- data(iris)3 m2 }+ _0 r6 S\" M3 H
- x <- subset(iris, select = -Species)6 Z0 @; T: I) F% `! g\" N
- y <- Species) ?1 Z3 \9 W+ {! u# n2 Z
- y <- as.numeric(y)
7 j* {5 _! R: U, q - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,4 x* w9 ~9 r. } p* N! ~' e4 S! C; U2 e/ ^
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
* R, [) ?0 h) S\" b) ^7 Y& T - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
. G* ~- i4 \% h9 m: [' x1 m - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
% a B- U# H% u0 ^4 y# u0 Y: H* ^. D2 a" K$ `' p8 g6 s8 v* L+ ]
|
|