knitr_demo.r

x<-1:25
y<-rnorm(25)
mean(y)

## [1] -0.1489752

sd(y)

## [1] 1.014098

plot (x,y,type="l",col="red",lwd=2)