R/Richards_B2.R

In JosephForest99/GrowthModels: Modelos de crecimiento forestal

#' Modelo polimórfico de chapman-Richards con Diferencia Algebraica
#'
#' @author Abel Joseph Hernández-Martínez
#'
#' @param B0 Parámetro B0
#' @param B1 Parámetro B1
#' @param Y0 Estado de inicio
#' @param E0 Edad en el estado de inicio
#' @param E1 Edad actual
#'
#' @return Devuelve el crecimiento respecto a la edad para un conjunto
#' de observaciones
#'
#' @export Richards_B2
#'

Richards_B2 <- function(B0,B1,B2,Y0,E0,E1){
  B0*(Y0/B0)^((log(1-exp(-B1*E1)))/(log(1-exp(-B1*E0))))
}