- 在线时间
- 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 编辑 5 [: V6 y% D1 | z; b
madio 发表于 2014-9-4 22:06 / h) x- s( h) t' p, @& q
写的会话终止,这个看不出什么原因,应该是出现了错误 - # 数据已归一化, W! y) M9 }5 j\" W$ W D7 u
- # install.packages("AMORE")+ J$ `\" D J( ~& [' n7 {
, M! p3 H2 z1 z3 Z& M. u# h& q5 a- library(AMORE)
& S6 Z; z- s. C. z; R
! H: S& z* U e( ^' ?- data(iris)# P, \: v# ~5 j
- x <- subset(iris, select = -Species)! K- b, O- V+ p' G2 H) s1 K: q
- y <- Species5 T6 j, C$ Y8 M6 i4 G5 V
- y <- as.numeric(y)
* w! f! `+ R+ q) h' O$ s - net <- newff(n.neurons=c(1,5,5,1), learning.rate.global=1e-2,momentum.global=0.9,
! a7 B2 M7 X( p# w! X/ O - error.criterium="LMS", Stao=NA, hidden.layer="tansig", output.layer="purelin", method="ADAPTgd")
: w# }) ?2 W* | Z+ O; d2 A i# q - result <- train(net, x, y, error.criterium="LMS",report=TRUE,n.show =5,show.step=100): l1 [. E\" }. ?8 R
- y2 <- sim(result$net, y)
复制代码 在2分钟之内就会出现下述窗口9 n* z+ X/ t$ I5 a: D0 g1 {
( f" }" j+ ?* H! \& a1 L
|
|