- 在线时间
- 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 编辑
& ^1 K( H1 R; n! G' A$ Emadio 发表于 2014-9-4 22:06 ![]()
. b9 {. Q# v/ \2 ]# j8 o$ r写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化3 \/ C: z9 z9 v& z2 e( G
- # install.packages("AMORE")% O7 g$ e. {0 {: ?\" a8 x6 G. g% a( ?3 s
1 G( }# Z5 ~+ x* A( F, B0 }- library(AMORE)5 ~. m/ e, z5 m2 g k' ]) }' J5 n
, F\" ?6 H7 n$ x0 Y6 y9 o8 \1 l- data(iris)* e9 `' J' r) k% n1 c \& W: X
- x <- subset(iris, select = -Species)2 `4 K& Z. r9 |6 N- H& j
- y <- Species! |3 }! H6 d) d6 @
- y <- as.numeric(y)0 p& i r3 R9 Q9 C# |& w7 A8 m: V
- net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9, }* r: ^' M7 @2 j1 j2 m
- error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
' b- P7 d4 ~/ b\" x8 Q - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)
& H! q! @0 T1 n) J - y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口2 ^3 S3 q' Q3 ^; _
7 w) D [% n+ |3 Y |
|