new r scripts added