- 在线时间
- 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 编辑 . |9 N/ `2 o0 ], m: x; R% h# o
madio 发表于 2014-9-4 22:06 ![]()
, V/ }* d' ^, t* f* P1 c+ {& {" M写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化7 b+ \ ?& q6 i$ t
- # install.packages("AMORE")) Z C# j! ` X; `4 K6 x
- , B( z, |3 j+ K, {; l! }
- library(AMORE)
7 C- T; \9 V. ?: a3 N4 C# V' j
9 X, D! {\" g1 H2 z2 Y- data(iris)3 a\" M( h9 t5 F; H5 e0 h0 u, s
- x <- subset(iris, select = -Species)
6 s. M; V5 V( L, _# | - y <- Species
( q5 S1 z+ x2 ]! I - y <- as.numeric(y)
D( ~2 f\" P& B; w - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,: h7 o {+ J. u* z3 l+ x\" Z
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
6 X D, `- N! R5 t% ]& ~ F/ M - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
) ~. e) @- Y. `; J1 l8 O0 s - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
8 M0 \3 V+ q+ W" \0 }0 K$ u/ p$ o3 N4 T: c3 }% |
|
|