# NOT RUN {
prices <- DAX30$price.close
returns <- diff(log(prices))
date <- DAX30$ref.date[-1]
cvar <- ewma(x = returns, lambda = 0.94)
csig <- sqrt(cvar)
plot(date, csig, type = 'l',
main = 'conditional standard deviations for the DAX30 return series')
# }
Run the code above in your browser using DataLab