add r code for normal tail prob