Corrected extra line on R script