Sample R code from articles