require(tseries)
require(quantmod)
require(PerformanceAnalytics)
getSymbols('ibm',src='yahoo')
x<-monthlyReturn(IBM)
SharpeRatio(x, Rf=.035/12, FUN="StdDev")


SharpeRatio(x, Rf=.035/12, FUN="VaR")

