#' @title Calculates in situ gross primary production (umol/L/timestep)
#' @description Calculates in situ gross primary production as a function of PAR
#' and estimated slpoe of the P-I curve (alphaPI).
#' @usage get.P(PAR, alphaPI)
#' @param PAR
#' @param alphaPI
#' @return Numeric vector of instantaneous gross primary production.
#' @references Holtgrieve et al. (2010) Limn. Ocean. 55 (3): 1047–106
#' @author Gordon W. Holtgrieve (gholt@uw.edu)
#'@export
get.P <- function(PAR, alphaPI){
# alphaPI is passed with units of umol/L/timestep/uE
P <- alphaPI * PAR # Final units are umol/L/timestep
return(P)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.