added first R scripts #2