sample code for great R packages