Btibert3
9/29/2013 - 7:30 PM

No Chart Printed

No Chart Printed

# Title

Here is some text

## A header 2

Some more text

## A chart at header 2

```{r scatter, results='asis', comment=NA, message=FALSE}
library(rCharts)
data(cars)
r1 = rPlot(speed ~ dist, data=cars, type='point')
r1$print('scatter')
```