knitr performance.r

## title:First Attempt at a knitr Performance Report
## author:Timely Portfolio

require(PerformanceAnalytics)
require(xtable)

data(edhec)
table.CalendarReturns(edhec[,1:3])[13:15]
charts.PerformanceSummary(edhec[,1:3],
                          colorset=c("gray50","steelblue2","steelblue4"),
                          main="EDHEC Performance by Type")

knitr stitch.r

require(knitr)
#use stitch to open and run the knitr performance.r script
#     and then generate Rnw code
#knit2pdf converts the Rnw to a pdf
knit2pdf(stitch("knitr performance.r"))

Thanks for sharing, cool stuff, I have tried and it works perfectly for me!