参考:包裹“ ouch” (链接)
发言题目:系统发育比较假设的Ornstein-Uhlenbeck模型
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)
Run Code Online (Sandbox Code Playgroud)
result <- lm(d_sprd ~ prev_sprd_mean, data = sprd_t)
half_life <- -log(2)/coef(result)[2]
half_life
Run Code Online (Sandbox Code Playgroud)
result = lm(d_sprd ~ prev_sprd_mean + 0, data = sprd_t)
half_life1 = -log(2)/coef(result)[1]
half_life1
Run Code Online (Sandbox Code Playgroud)
也尝试:
均值回复Ornstein-Uhlenbeck过程的仿真和估计
如果我们进入均值回复位置,并且3或4个半衰期之后的价差仍未恢复为零,则我们有理由相信这种情况可能已经改变,我们的均值回复模型可能不再有效
参考: