- 在线时间
- 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 编辑 % w& p, e% }8 i4 D2 L
madio 发表于 2014-9-4 22:06 6 x# M+ h- U0 U! L# e
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
4 s4 ~! S+ O) S: b' W - # install.packages("AMORE")7 |2 P8 Y% G8 e+ b m4 a3 D
' m4 A& @3 v+ O- library(AMORE)
+ e+ k+ v5 T6 I - ( Y\" o% Y7 y! ]& C/ h7 _( W8 _6 H\" r
- data(iris)7 M' U- l8 x' X% `9 _
- x <- subset(iris, select = -Species)
( a W, u5 q3 b! f7 B1 J9 ^ - y <- Species. y; d9 W8 w1 {6 W
- y <- as.numeric(y)5 @/ \: `: [) ]' Z
- net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
2 A% K4 _1 I( S4 R2 J6 K) u2 Z$ v - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
2 j# G: K\" u' O& r8 A. R4 D/ c5 [* G# e - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
! L8 i; s& V ~; `3 X3 N0 M - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口" S" R: i! l, ]% o8 n& z% N
7 d* A# K: A6 e, d0 m) I
|
|