ReplaceAll[(R * (1 - ATAN(A * R) * 2/pi *B)), {R -> 0.952, A -> 1.4, B-> 0.75}]