adding r scripts