functions to calculate wbgt added to wbgt.R