我正在寻找使用Ornstein-Uhlenbeck的R代码示例,以在考虑协整证券时估计均值回归所需时间。
参考文献:包 ‘ouch’ (链接)
标题:用于系统发育比较假设的奥恩斯坦-乌伦贝克模型
prev_sprd <- c(sprd[2:length(sprd)], 0)
d_sprd <- sprd - prev_sprd
prev_sprd_mean <- prev_sprd - mean(prev_sprd)
sprd.zoo <- merge(d_sprd, prev_sprd_mean)
sprd_t <- as.data.frame(sprd.zoo)
result <- lm(d_sprd ~ prev_sprd_mean, data = sprd_t)
half_life <- -log(2)/coef(result)[2]
half_life
result = lm(d_sprd ~ prev_sprd_mean + 0, data = sprd_t)
half_life1 = -log(2)/coef(result)[1]
half_life1
还可以尝试:
关于均值回归Ornstein-Uhlenbeck过程的模拟和估计
如果我们进入一个均值回归的位置,而三到四个半衰期后价差仍未回归到零,我们有理由相信,也许制度已经改变,我们的均值回归模型可能不再有效。
参考文献:
我建议阅读r-sig-finance列表中的这个帖子,它直接回答了你的问题。