R Scripts

original R script and those of SS