Testing knitr

Aurelien bio photo By Aurelien
library("knitr")
library("ggplot2")

df <- data.frame(a = rnorm(500),
                 b = rt(500, df = 5))

head(df)
##             a          b
## 1 -0.67892710  0.5635973
## 2 -1.55049543 -1.0305584
## 3 -0.87301290  2.4309302
## 4  0.03489025 -0.1870609
## 5  0.44849295  0.4515213
## 6  0.80146226 -0.4131415
p <- ggplot(df)+
     geom_point(aes(x = a, y = b))
plot(p)

plot of chunk setup

Test knitr