R/f_val_calc_Delta_i_simple_for_gm.R

In erikerhardt/isogasex: Isotopic gas exchange using TDL and Licor input. Updated version of package tdllicor

#' Delta_i simple for gm, predicted discrimination including boundary layer effects but not decarboxylation effects
#'
#' \deqn{Delta_i_simple_for_gm = a_b * ((pa - ps) / pa) + a*((ps - pi) / pa) + b * (pi / pa)}
#'
#' @param a xxxPARAMxxx
#' @param b xxxPARAMxxx
#' @param a_b xxxPARAMxxx
#' @param pa xxxPARAMxxx
#' @param ps xxxPARAMxxx
#' @param pi xxxPARAMxxx
#'
#' @return Delta_i_simple_for_gm xxxRETURNxxx
#'
f_val_calc_Delta_i_simple_for_gm <-
function# Delta_i simple for gm, predicted discrimination including boundary layer effects but not decarboxylation effects
###
(a
###
, b
###
, a_b
###
, pa
###
, ps
###
, pi
###
)
{
  ##details<<
  ##\deqn{Delta_i_simple_for_gm = a_b * ((pa - ps) / pa) + a*((ps - pi) / pa) + b * (pi / pa)}
  Delta_i_simple_for_gm <- a_b * ((pa - ps) / pa) + a*((ps - pi) / pa) + b * (pi / pa);

  return( Delta_i_simple_for_gm );
  ### Delta_i_simple_for_gm
}