R/convertZStarToZ.R

In tilbud/MEMs: R-Cohort Marsh Equilibrium Model

#' Convert from Z* to elevation
#'
#' @param zStar a numeric describing the normalized Z* elevation
#' @param meanHighWater a numeric, mean high water tide
#' @param meanSeaLevel a numeric, mean sea level
#'
#' @return a numerical describing the marsh elevation
#' @export
#'
convertZStarToZ <- function(zStar, meanHighWater, meanSeaLevel) { 
  (zStar * ((meanHighWater-meanSeaLevel))) + meanSeaLevel 
  }