原文链接：http://tecdat.cn/?p=25675 

一只 股票的_beta_值通常意味着它与市场的关系，当市场变动 1%时，咱们冀望股票会产生多少百分比的变动。

市场，是一个有点含糊的概念，像平常一样，咱们应用规范普尔500指数进行近似计算。上述关系（以下简称）对交易和风险管理的许多方面是不利的。曾经确定的是，稳定率对于上涨的市场和上涨的市场有不同的动静。咱们无论如何都要应用回归来预计贝塔值，所以对于心愿拟合这种不对称性的投资者来说，分段线性回归是适合的。

这个想法很简略，咱们将数据集分成两个（或更多）局部，并别离、逐块或 _分段_预计每个局部。这个简略的想法能够用简单的符号和代码来实现。

为了阐明，我应用 Microsoft 股市收益率数据(MSFT)。

我对不同收益率预计了不同的值，正日在零以上，负日在零以下，所以零是咱们的突破点。(这个突破点在学术术语中被称为 "结"，为什么是 "结 "呢？因为它把两局部分割在一起。) 上面的图显示了后果。
 

getSymbolsfor (i in 1:l){dat0 = getSymbolsrt\[,i\] = dt\[,4\]/dt\[,1\] - 1}lal = lmplot abline

兴许值始终都是一样的，直到极其的负值，只有说当市场急剧下降时，关系才会扭转。这属于结构性变动的领域。我思考沿轴线的点的网格，并建设一个模型，在每个点上有一个断点，断点前有一个斜率，断点后有一个斜率。我寻找整个样本的平方误差之和的最小值，所以我把两个模型的平方误差相加。下图显示了后果。

plot(ret\[,1\]~ret\[,2\]segmentsgrid1grid2 ## 留神这里（ret\[,2\]<grid2\[i\]），是指标函数for (i in 1:length(gid2) ) {rneg <-lmrpos <-lmd\[i\]<- summary}plottextpoints

在最优模型上进行网格搜寻

好吧，数据说突破点不是零，但简直为零，运气不好，所有这些工作，我问你什么？好吧，为了应用正确的 _贝塔_ ，你当初要做的就是决定是熊市还是牛市......应该是轻而易举的事。感激浏览，代码如下所示。

数据显示，结点不是零，但简直是零，为了应用正确的值，你当初要做的就是决定，这是一个熊市还是一个牛市，谢谢浏览。 

最受欢迎的见解

1.R语言基于ARMA-GARCH-VaR模型拟合和预测实证钻研

2.R语言时变参数VAR随机模型

3.R语言预计时变VAR模型工夫序列的实证钻研

4.R语言基于ARMA-GARCH过程的VAR拟合和预测

5.GARCH（1,1），MA以及历史模拟法的VaR比拟

6.R语言用向量自回归（VAR）进行经济数据脉冲响应

7.R语言实现向量主动回归VAR模型

8.R语言随机搜寻变量抉择SSVS预计贝叶斯向量自回归（BVAR）模型

9.R语言VAR模型的不同类型的脉冲响应剖析