powered by
sw.T.freeze(S, p=NULL)
ctd
T.freeze <- sw.T.freeze(40, 500) # -2.588567 degC
Run the code above in your browser using DataLab