Added OMP P1 R Script (started)