- 在线时间
- 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 编辑 $ p: X* b! |" I! A" i5 e, q7 {
madio 发表于 2014-9-4 22:06 # m9 |. {: A3 _- t6 ~
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
& h# C1 r5 o8 ]$ u }4 b. ? - # install.packages("AMORE")
- d; Y: E6 C$ R, s' S - 7 w6 l- E5 n3 k& z
- library(AMORE)
. w) b( r\" I' c, [8 f6 ^) V, U - / X\" e/ p% q% `8 i9 U, ` q, ]2 B
- data(iris)2 b+ e* [/ ~8 S3 y
- x <- subset(iris, select = -Species)
1 @& \! k5 I: d. I0 c* D - y <- Species
4 s' _6 n( Y# N, R8 J3 r - y <- as.numeric(y)
( K* n' E4 u, T\" B% y2 g - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
' \1 Z* a' U4 H. J - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")9 N. _( H! [/ h) J ~2 z$ r
- result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
2 Q- e) e# V- e, [ {; R6 f, X - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
) V# |7 [ x: n
, l* i5 L1 Y, S- _! K$ u# W |
|