require(tseries)
require(quantmod)
require(PerformanceAnalytics)
getSymbols('ibm',src='yahoo')
x<-dailyReturn(IBM)
VaR(x,p=0.95,method="gaussian")
