r script change