Updated R Programs

Corrections to all P, AP and BW counts
Addition of Loss of P and AP water contacts (both 2D and 3D)