Add sample R script.