Create precipt2R.r