- 在线时间
- 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 编辑
+ n# ]$ q4 ~2 O* m# f$ hmadio 发表于 2014-9-4 22:06 ![]()
7 y. Z9 v& E# x' a写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化8 a) e+ Z. e! c& g3 Y# W! X* a
- # install.packages("AMORE")
1 \( g) Y9 d. a# j3 i9 D6 r
3 l3 y# g! H, I2 I8 |/ h' _6 R- library(AMORE)
$ P- [* X, q- G3 M$ H: S, ? - ; ^* J; X7 W8 k2 N) i% Q
- data(iris)% `* x! @! N$ b/ J' y: }# \7 z
- x <- subset(iris, select = -Species)& R; W7 a# M4 C( j
- y <- Species: I( N\" K4 n1 g
- y <- as.numeric(y)* h1 n, s\" R% h# Z* I. E! a/ E
- net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
* @: x, p1 x; c! @\" B0 F; j - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
/ i. p: j1 j+ J - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)2 R9 C0 v1 a( C# z$ g5 f' @8 ~
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
! ^6 X( F2 F* h, n; k2 m+ `
! d9 A8 i W2 C2 J9 {% y- R1 ] |
|