R script template