added r scripts