- 在线时间
- 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 编辑
. o! J" |% L- o8 o9 s$ Kmadio 发表于 2014-9-4 22:06 5 ?$ \* O: F' M1 t
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
/ g# Y1 l* ]/ i2 R - # install.packages("AMORE")
/ u# K$ W8 h: L Z
' s' Y/ F) C\" z* P+ `5 D( t( P- library(AMORE)* `- z: m+ f; L* v\" `; D- S
- 6 q) g9 f' Q2 i& T: Y2 m0 Q
- data(iris)% o D3 l8 t& k) G4 w\" [1 z
- x <- subset(iris, select = -Species)) n. `\" I2 r% `# f! R% m0 S
- y <- Species& X' r7 C T _, s) y; Y( p\" J
- y <- as.numeric(y)' i# A. u% J\" q& W6 m6 U
- net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
4 @& V7 J) N/ }: |\" ^; {0 @ - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
, S M9 O6 n3 s7 n _4 e' L - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
) j5 n# c% p Y2 W# g - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
' w. h8 c% _) p8 l- O
. M+ U* o; S3 w: u: Y |
|