- 在线时间
- 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 编辑 2 W6 s% Q- x1 g& p$ J, I8 Y
madio 发表于 2014-9-4 22:06 ( S) x: [, M5 g# K: c d- T
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化
( ?4 c: G# G+ N - # install.packages("AMORE")8 X* f* K$ S$ X/ R2 N$ v
- ) K6 s8 Z' Z! z8 F0 i. e
- library(AMORE)
6 V- ]# ?/ B& b1 [0 \( u
\" z2 S! U4 s3 g\" u& q- data(iris)4 X' n' O9 C7 {9 `+ s
- x <- subset(iris, select = -Species)6 T+ H' G1 Z3 N) p. ]. j) K' M
- y <- Species* |5 ^- O) m! i1 O5 G7 c( u$ G
- y <- as.numeric(y), M$ V6 A' @# q7 B5 ?
- net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
1 J# i+ d8 s& _+ `3 ~ - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
, Y+ Q8 a' c% V4 N/ p; v$ L9 ? - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100)2 X% c5 c4 w* M3 r Q* P
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口
8 e$ H' n8 d% A% w5 D1 v9 j! L5 Z/ t, m" @0 v8 {" W
|
|