add basic r script