example rscript + source data