স্টক রিটার্নগুলি আপনি যা চাইছেন তার একটি শালীন বাস্তব জীবনের উদাহরণ। আজকের এবং গতকালের এসএন্ডপি 500 রিটার্নের মধ্যে শূন্য সম্পর্কের খুব কাছে রয়েছে। তবে, স্পষ্ট নির্ভরতা রয়েছে: স্কোয়ার্ড রিটার্নগুলি ইতিবাচকভাবে স্বতঃসংশ্লিষ্ট; সময়কালে উচ্চ অস্থিরতার সময়কাল ক্লাস্টার হয়।
আর কোড:
library(ggplot2)
library(grid)
library(quantmod)
symbols <- new.env()
date_from <- as.Date("1960-01-01")
date_to <- as.Date("2016-02-01")
getSymbols("^GSPC", env=symbols, src="yahoo", from=date_from, to=date_to) # S&P500
df <- data.frame(close=as.numeric(symbols$GSPC$GSPC.Close),
date=index(symbols$GSPC))
df$log_return <- c(NA, diff(log(df$close)))
df$log_return_lag <- c(NA, head(df$log_return, nrow(df) - 1))
cor(df$log_return, df$log_return_lag, use="pairwise.complete.obs") # 0.02
cor(df$log_return^2, df$log_return_lag^2, use="pairwise.complete.obs") # 0.14
acf(df$log_return, na.action=na.pass) # Basically zero autocorrelation
acf((df$log_return^2), na.action=na.pass) # Squared returns positively autocorrelated
p <- (ggplot(df, aes(x=date, y=log_return)) +
geom_point(alpha=0.5) +
theme_bw() + theme(panel.border=element_blank()))
p
ggsave("log_returns_s&p.png", p, width=10, height=8)
এস এন্ড পি 500 এ লগের টাইমসারিগুলি:
যদি সময়ের (এবং স্থির) মাধ্যমে রিটার্নগুলি স্বাধীন হয়, তবে ক্লাস্টারড অস্থিরতার সেই নিদর্শনগুলি দেখার খুব সম্ভাবনা নেই এবং আপনি স্কোয়ারযুক্ত লগের রিটার্নগুলিতে স্বতঃসংশ্লিষ্টতা দেখতে পাবেন না।