% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/chapter17_profit_analysis.R
\name{discounted_payback_period}
\alias{discounted_payback_period}
\title{Discounted payback period}
\usage{
discounted_payback_period(Pi, r)
}
\arguments{
\item{Pi}{Profit signature vector.}

\item{r}{Risk discount rate.}
}
\value{
Integer scalar, or \code{NA_integer_} if the payback period is not
  reached.
}
\description{
Returns the first duration \eqn{t} for which the partial net present value
\eqn{NPV(t)} is nonnegative.
}
\examples{
Pi <- c(-15.00, 8.42, 8.39, 8.58)
discounted_payback_period(Pi, r = 0.10)

}
