moved r script