- 在线时间
- 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 编辑 6 O9 y( _/ C3 }) U2 p
madio 发表于 2014-9-4 22:06 3 f4 q8 P8 r+ ^* d; J
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
, I/ P1 F8 b$ ^9 [: | - # install.packages("AMORE")7 P% X* Z/ H: e& u
/ [# C. k2 E, g( Y$ J& G! [+ G/ @- library(AMORE)6 ]) X$ s5 S/ j0 K, V! c5 Z
- + l4 k+ X3 X. S+ ~2 }6 E
- data(iris)# j5 q( S8 I4 f% ^3 d
- x <- subset(iris, select = -Species)0 z6 x- T! o0 h
- y <- Species3 _5 B& o& q. j* R. |8 U. M
- y <- as.numeric(y), o, M& K W1 S$ _8 e+ X6 k
- net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
: r$ c1 \+ N( J# ^9 x: v+ B1 z - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
7 d l7 ]9 `) c0 ?9 J3 r$ g - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100) G4 \/ f; B( E1 ^2 b6 N
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口& k+ f6 p" r x: x
- K8 r, W2 c# e8 V$ [9 R |
|