% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/penalty.R
\name{penalty.fun}
\alias{penalty.fun}
\title{Penalty dispatcher (negative log prior)}
\usage{
penalty.fun(
  par,
  mu = NULL,
  std = NULL,
  lme = NULL,
  pen = "beta",
  p = NULL,
  c0 = 0.35,
  c1 = NULL,
  c2 = NULL,
  q = NULL
)
}
\arguments{
\item{par}{Parameter vector; only \code{par[3]} (shape) is penalized.}

\item{mu, std}{Hyperparameters for the normal penalty.}

\item{lme}{Center (L-moment pre-estimate) for the adaptive beta penalty.}

\item{pen}{Penalty type.}

\item{p, c0, c1, c2, q}{Hyperparameters for the beta penalty.}
}
\value{
Negative log prior value (scalar).
}
\description{
Returns the negative log of the preference (prior) function for the
selected penalty type. Dispatches to \code{\link{pk.norm.stnary}}
("norm"), the adaptive \code{\link{pk.beta}} ("beta"), the fixed
literature beta penalties ("ms": Beta(6,9); "park": Beta(2.5,2.5);
"cannon": Beta(2,3.3)), the Coles-Dixon exponential penalty ("cd"),
or zero ("no").
}
\keyword{internal}
