- 在线时间
- 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 编辑
2 h7 i' l5 Z0 @5 U7 jmadio 发表于 2014-9-4 22:06 ( _" J5 f: @6 i; Q+ i( q0 {
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化+ d& J; `( E8 D5 X4 h5 Q
- # install.packages("AMORE")8 ?6 n& t6 a6 z: m
- 3 W- ?/ v; d9 k
- library(AMORE)0 |( s# P7 ]7 `6 U, R; w! G I
' |& H% w% D4 E# w1 a& H3 `- data(iris)% }: \* C- G+ D0 Y& F
- x <- subset(iris, select = -Species)
& I/ j+ i+ G% w% Q7 o1 Z+ X8 n$ ] - y <- Species- E3 g/ G; \1 a5 m7 d
- y <- as.numeric(y)
3 y8 Y' t/ g8 `\" G - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
, c! L L! T9 L6 M* k1 d S# | - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
X: a. C# ~. K3 J2 a1 r+ S, ^. w - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
: L# r1 i7 J: t\" Z4 e9 ]- ? - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口7 W5 S1 k6 Y* e$ s+ F
; s& m" Y7 z' R }6 j$ Q; K' s. O |
|