cut and paste issue in the r file