R script - part1