R/get.R.R

In gholtgrieve/gassyPants: Functions Useful for Working With Gasses Dissolved in Water

#' @title Calculates in situ respiration (umol/L/timestep)
#' @description Calculates in situ ecosystem respiration as a function of water
#' temperature and estimated Rstd. This function simply temeprature corrects
#' R using a predefined Arrhenius relationship.
#' @usage get.R(temperature, Rstd)
#' @param temperature Water termperature in degrees Celsius (C).
#' @param referenceT Standardized water temperature for Rstd in degrees Celsius.
#' Defaults to 20.
#' @note Assumes units of supplied Rstd value.
#' @return Numeric vector of instantaneous ecosystem respiration.
#' @references Holtgrieve et al. (2010) Limn. Ocean. 55 (3): 1047–106
#' @author Gordon W. Holtgrieve (gholt@uw.edu)
#'@export
#'
#'
get.R	<-	function(temperature, Rstd, referenceT = 20){
  # Rstd is passed with units of umol/L/timestep
  R <- Rstd * 1.047*exp(temperature - referenceT) # Final units are mol/m3/timestep

  return(R)
}