R/torr_mgl.R

In JoeyBernhardt/oxygen: Converts Between Oxygen Units

#' Convert between oxygen in torr to mg per litre
#'
#' @param temperature temperature in degrees celcius
#' @param oxygen_in_torr oxygen concentration in torr
#'
#' @return
#' @export
#'
#' @examples
torr_mgl <- function(temperature, oxygen_in_torr) {
  if (temperature == 16) {
    return(oxygen_in_torr*0.0000019705*32*1000)
  } else if (temperature == 20) {
    return(oxygen_in_torr*0.0000018239*32*1000)
  } else if (temperature == 24) {
    return(oxygen_in_torr*0.0000016993*32*1000)
  } else if (temperature == 12) {
    return(oxygen_in_torr*0.0000021415*32*1000)
  }
}