R/adj.herm.R

In DistanceDevelopment/mrds: Mark-Recapture Distance Sampling

#' Hermite polynomial adjustment term, not the series.
#' 
#' For internal use only -- not to be called by 'mrds' or 'Distance' users 
#' directly.
#'
#' @param distance perpendicular distance vector/scalar
#' @param scaling scale parameter
#' @param adj.order the adjustment order
#' 
#' @returns scalar or vector containing the Hermite adjustment term for every
#' value in \code{distance} argument
#'
#' @author Felix Petersma
adj.herm <- function(distance, scaling, adj.order) {
  return(hermite.poly((distance / scaling), adj.order))
}