- 在线时间
- 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 编辑
- R9 M% O+ v" o$ ]madio 发表于 2014-9-4 22:06 ) C; f: l3 r' k, C" h4 Q# L
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化3 z. S' f0 c4 q* j, \$ M7 B4 }
- # install.packages("AMORE")
: u$ o( t% g, |, J1 u - % V6 b$ T C# F+ N
- library(AMORE)
/ D; [& `5 X: B# y5 m - 3 e# V0 {8 T T+ j# m- o
- data(iris)( M% s# F2 F/ t1 w8 q: Z
- x <- subset(iris, select = -Species)
; q0 X0 R3 Q( T6 Z! U - y <- Species
$ s! t! _, C- T0 `# f3 m7 t - y <- as.numeric(y), F0 f# |) e v9 y( p s
- net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,: k, q! \1 q: T0 I* G n- @
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
* c2 G' e$ W1 N- M( H - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
' g1 T: i* v5 Z: U0 j7 s1 u - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口5 g9 m" H) j: A# f
# b9 o5 K8 [5 F U" v0 F. i |
|