Testing

library(ggplot2)

g <- ggplot(
	data = mtcars,
	mapping = aes(x = wt, y = mpg)) +
	geom_point()

print(g)

plot(mtcars$wt, mtcars$mpg)

<strong>test</strong>
<ul>
	<li>this</li>  
</ul>

print('this works')

print('second try')

print('third try')