I am looking for an example r code to use Ornstein-Uhlenbeck to estimate the time for average reversal when considering co-integrated securities
Link: Package 'ouch (link)
Title: Ornstein-Uhlenbeck Models for Phylogenetic Comparative Hypotheses
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
also try:
Statistical Methods for Financial Engineering, B. Remillard
On Modeling and Evaluation of the Ornstein-Uhlenbeck Inverse Transformation Process in Average Circulation
3 4 , , , , , , -
http://epchan.blogspot.co.uk/2007/01/what-is-your-stop-loss-strategy.html
http://cran.r-project.org/web/packages/peacots/peacots.pdf
CRAN , Ornstein-Uhlenbeck. rseek, , , .
r-sig-finance, .