adding r script