从历史数据看今日股市

Tue, 27 Nov 2012 00:00:00 +0000

在股市发展史上，人性的贪婪和恐惧总是交替出现的。如果我们假设股市存在一个潜在的合理增长线，那么，贪婪和恐惧则周期性地驱动着股市围绕潜在合理增长线上下波动。在这个假设下，找到潜在的合理增长线、最大偏离幅度及偏离持续期对于我们进行投资就显得很有意义。

观察一下1999年-2012年中国股市数据的直方图和经验累积分布函数图。我将大于quantile(ssec,p=0.9)的数据定义为异常值（下图中的黑点部分）。剔除异常值数据之后，拟合出股市的潜在合理增长线（蓝色线）。图形显示，中国股市已经步入低估时代（恐惧驱动的时代）一段时间了，然而，还没有见底。未来的底部可能偏离潜在合理增长线在1.5倍标准差附近。

相关R代码为：

library(quantmod)
getSymbols("^SSEC",from="1991-01-01")
ssec=coredata(Cl(SSEC))

layout(m=matrix(c(1,2,
 3,3),nc=2,byrow=T))

hist(ssec,prob=T)
lines(density(ssec))

plot(ecdf(ssec))
abline(h=0.9,lty=2)
abline(v=quantile(ssec,0.9),lty=2)

plot(ssec,pch=20)
points((1:length(ssec))[ssec< =quantile(ssec,0.9)],ssec[ssec<=quantile(ssec,0.9)],col="red",pch=20)
l=lm(ssec[ssec<=quantile(ssec,0.9)]~(1:length(ssec))[ssec<=quantile(ssec,0.9)])
abline(l,col="blue")

h=fitted(l)+2*sd(residuals(l))
lines((1:length(ssec))[ssec<=quantile(ssec,0.9)],h,col="green")

h=fitted(l)-2*sd(residuals(l))
lines((1:length(ssec))[ssec<=quantile(ssec,0.9)],h,col="green")
dev.off()

潜在合理增长线 on 格物堂

从历史数据看今日股市