R exercises

sample script for R