# NOT RUN {
data(StockPriceReturns)
data(OtherReturns)
er.result <- excessReturn(firm.returns = StockPriceReturns,
market.returns = OtherReturns$NiftyIndex)
tail(merge(excessReturn = er.result$Infosys,
Infosys = StockPriceReturns$Infosys,
NiftyIndex = OtherReturns$NiftyIndex,
all=FALSE))
# }
Run the code above in your browser using DataLab