Test R Markdown

y <- (1:4)
x <- y^2
plot(x, y)

plot of chunk testplot

Once upon a time there was a little piece of code.