convert_StoR(S = 40, t = 40, p = 1000)
convert_StoR(S = 35, t = 15, p = 0)
# Check values:
convert_StoR(S=25,t=10,p=0) # 0.654990
convert_StoR(S=25,t=10,p=100) # 0.662975
convert_StoR(S=25,t=10,p=1000) # 0.712912
convert_StoR(S=35,t=10,p=100) # 0.897778
convert_StoR(S=40,t=10,p=100) # 1.011334
Run the code above in your browser using DataLab