- 在线时间
- 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 编辑 & e$ @8 L! L; y! V! D
madio 发表于 2014-9-4 22:06 " x, ]; n' g* n) b
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化- p R5 n: l9 T s3 u
- # install.packages("AMORE")( Z& p$ T4 k3 b I( v
- \" E3 m% u2 K* J% j2 Y' G7 K
- library(AMORE)
! T$ {4 P9 |\" Q' A& e5 l - \" k& [! z& A$ x* b, z9 |2 D, X
- data(iris)
, \; u3 Q4 z+ `$ q - x <- subset(iris, select = -Species)( p) V6 r' {1 r% d1 y7 ?
- y <- Species& `! N- k+ {7 v- i) }
- y <- as.numeric(y)
+ B4 A' J3 X. h7 o9 j4 h. g; o - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
4 _; q3 t* x* b) H( ^\" O: D# n - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd"), Y& c0 X8 U# D+ P; _
- result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)5 x8 `2 _+ r( z! Y! Z
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
- r0 E+ S: ?0 n0 k5 e7 v$ T
; t6 q A5 o0 d( g6 ] |
|