R Script 2