楼主: 南冰
97254 299

急:R软件加载程序包tsDyn问题 [推广有奖]

201
waveland 发表于 2012-4-27 07:58:08

202
waveland 发表于 2012-4-27 08:00:03

203
雁茗轩 发表于 2012-5-3 00:38:59
epoh 发表于 2012-4-25 14:35
yan=read.table("d.txt",header=TRUE)
y=yan$CPI
x=yan$do1           # [0.00 1.00 3.81 1.65....10 ...
但是epoh老师,这个是选取了do1的不同取值分别作为转换变量来你和模型,接着做了脉冲分析吗?那岂不是x1做转换变量得到的脉冲就可以作为我那个模型的了吗?老麻烦您,真不好意思!谢谢您了……

204
epoh 发表于 2012-5-3 10:49:45
雁茗轩 发表于 2012-5-3 00:38
但是epoh老师,这个是选取了do1的不同取值分别作为转换变量来你和模型,接着做了脉冲分析吗?那岂不是x1做 ...
哈哈,休假完看到了.
你说对了,x1,x2,x3做转换变量可以得到脉冲(你的模型)
不过一阶差分,smooth效果不佳,图形如下:
do1_tf.bmp

我改以thVar=log(oilprice)[3:121]
oil=cpo$Oil
oilln=log(oil)
thVar=oilln[3:121]

smooth效果较好,fitted.values也较好,你参考看看
请注意短信息
logoil_girf.bmp
logoil_tf.bmp

205
jiaoery 发表于 2012-5-4 08:39:20
epoh老师,您这是我的数据,谢谢您了。

206
怀想的季节 发表于 2012-5-4 12:04:08
老师请问这个结果是什么意思

Using default threshold variable: thDelay=0
Testing linearity...   p-Value =  0.2999844
The series is linear. Using linear model instead.

Non linear autoregressive model

AR model
Coefficients:
     const      phi.1      phi.2
0.70289952 0.08038689 0.22178193

207
南冰 发表于 2012-5-5 23:15:32
怀想的季节 发表于 2012-5-4 12:04
老师请问这个结果是什么意思

Using default threshold variable: thDelay=0
说明该模型不具有非线性性,建立线性模型就可以了!
已有 1 人评分学术水平 热心指数 信用等级 收起 理由
epoh + 1 + 1 + 1 热心帮助其他会员

总评分: 学术水平 + 1  热心指数 + 1  信用等级 + 1   查看全部评分

一直怀有一个梦想,希望在不久的将来能读个博士,做做学术搞搞研究,饱尝学术的艰辛

208
雁茗轩 发表于 2012-5-22 23:00:56
epoh 发表于 2012-5-3 10:49
哈哈,休假完看到了.
你说对了,x1,x2,x3做转换变量可以得到脉冲(你的模型)
不过一阶差分,smooth效果不 ...
老师,我想请教您一下,咱们估计出来的的LSTAR模型的前后两个线性部分的形式是一样,即是同阶的,那可不可以说前面的线性部分是3阶的,后面乘以转换函数的线性部分不是三阶呢?比如是滞后一期?这种可以估计出来吗?谢谢老师……

209
epoh 发表于 2012-5-23 09:32:55
雁茗轩 发表于 2012-5-22 23:00
老师,我想请教您一下,咱们估计出来的的LSTAR模型的前后两个线性部分的形式是一样,即是同阶的,那可不可 ...
lstar(x, m, d=1, steps=d, mL, mH, mTh,control=list(),....)
  mL : autoregressive order for 'low' regime (dafult: m). Must be <=m
  mH : autoregressive order for 'high' regime (default: m). Must be <=m

可以利用mL,mH 来调整
mod1=lstar(y,m=3,d=1,thVar=oilln[3:121],mL=3,mH=1,control=list(maxit=3000))
> mod1

Non linear autoregressive model

LSTAR model
Coefficients:
Low regime:
      const1       phi1.1       phi1.2       phi1.3
0.190190160  0.721915078 -0.084351533 -0.002905174

High regime:
     const2      phi2.1
0.02355544 -0.50692537

Smoothing parameter: gamma = 100

Threshold
Variable: external
Value: 3.507
已有 1 人评分学术水平 热心指数 信用等级 收起 理由
雁茗轩 + 5 + 5 + 5 热心帮助其他会员

总评分: 学术水平 + 5  热心指数 + 5  信用等级 + 5   查看全部评分

210
雁茗轩 发表于 2012-5-23 12:15:26
epoh 发表于 2012-5-23 09:32
lstar(x, m, d=1, steps=d, mL, mH, mTh,control=list(),....)
  mL : autoregressive order for 'low ...
太感谢您了,好的,我试试!

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-2-26 15:34