added r script