started r script