R/adj.poly.R

In mrds: Mark-Recapture Distance Sampling

#' Simple 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 polynomial adjustment term for every
#' value in \code{distance} argument
#'
#' @author Felix Petersma
adj.poly <- function(distance, scaling, adj.order) {
  return((distance / scaling) ^ adj.order)
}