R/modelparameters_lokaal.R

In inbo/dhcurve: Automated Modelling of Diameter Height Curves for Trees

#' @title Modelparameters berekenen voor opgegeven lokaal model
#'
#' @description
#' Functie die de modelparameters berekent op basis van een opgegeven lokaal
#' model.  Ze berekent de parameters voor het domeinmodel en geeft de grenzen
#' van het bruikbaar interval
#'
#' @param Soortmodel model voor boomsoort-domeincombinatie
#'
#' @return dataframe met parameters voor domeinmodel (`Ad`, `Bd` en `Cd`)
#'
#' @noRd
#'
#' @importFrom stats coef
#'

modelparameters.lokaal <- function(Soortmodel) {

    Parameters.soort <- data.frame(Ad = coef(Soortmodel)[[1]],
                                   Bd = coef(Soortmodel)[[2]],
                                   Cd = coef(Soortmodel)[[3]],
                                   stringsAsFactors = FALSE)

  return(Parameters.soort)
}