data(sbux.xts)
par(mfrow=c(2,1))
plot(rCumSum(sbux.xts, period=10, align.by="seconds", align.period=60),
xlab="", ylab="Cumulative Ruturns", main="Starbucks (SBUX)",
sub='20110701', type="p")
barplot(rMarginal(sbux.xts, period=10, align.by="seconds", align.period=60)$y,
main="Marginal Contribution Plot")
Run the code above in your browser using DataLab