R/Hossfeld_IV_exp_B1.R

In JosephForest99/ForGM: Modelos de crecimiento forestal

#' Modelo polimórfico \eqn{\beta_1} de Hossfeld IV exponencial (1822)
#'
#' La función es el resultado de la aplicación del enfoque de Diferencia
#' Algebraica (ADA, por sus siglas en inglés). El parámetro de la
#' tasa de crecimiento (\eqn{\beta_1}) se relacionó con el sitio.
#'
#' @details El modelo ADA con valor específico del sitio \eqn{\beta_1}:
#'     \deqn{Y_1 =  \frac{\beta_0}{1+exp \left( log \left( \frac{ \frac{\beta_0-Y_o}{Y_0}}{exp(-\beta_2 \times log(E_0))} \right) \right) \times exp(-\beta_2\times log(E_1))}}
#'
#' @author Abel Joseph Hernández-Martínez
#'
#' @param B0 Valor numérico o parámetro \eqn{\beta_0}.
#' @param B2 Valor numérico o parámetro \eqn{\beta_2}.
#' @param Y0 Valor del crecimiento inicial.
#' @param E0 Valor numérico o vector de observaciones de la edad inicial
#'     de los árboles.
#' @param E1 Valor numérico o vector de observaciones de la edad futura
#'     de los árboles.
#'
#' @return Devuelve el valor del crecimiento estimado del árbol.
#'
#' @references Hernández-Cuevas et al. (2018). Modelos de crecimiento en altura
#' dominante e índices de sitio para \emph{Pinus ayacahuite} Ehren.
#' Agrociencia 52:437-453.
#'
#' @seealso \code{\link{Hossfeld_IV_exp}}
#'
#' @export Hossfeld_IV_exp_B1

Hossfeld_IV_exp_B1 <- function(B0,B2,Y0,E0,E1){
  B0/(1+exp(log(((B0-Y0)/Y0)/exp(-B2*log(E0))))*exp(-B2*log(E1)))
}