ReplaceAll[(R * (1 - ATAN(A * R) * 2/pi *B)), {R -> 1.152, A -> 1.2, B-> 1}]