1 min read

从历史数据看今日股市

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

观察一下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()