% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/bivariate_laplace_residual.R
\name{biv_mean_residual}
\alias{biv_mean_residual}
\title{Bivariate Mean Residual Life Function}
\usage{
biv_mean_residual(
  t1,
  t2,
  surv_fn = NULL,
  k1 = 1,
  k2 = 1,
  theta = 0,
  upper = 100
)
}
\arguments{
\item{t1, t2}{Non-negative thresholds.}

\item{surv_fn}{Joint survival function; defaults to Gumbel bivariate
exponential.}

\item{k1, k2, theta}{Gumbel parameters (used when \code{surv_fn = NULL}).}

\item{upper}{Upper integration bound (default \code{100}).}
}
\value{
A named numeric vector \code{(m1, m2)}.
}
\description{
Computes the bivariate mean residual life (MRL) function
\deqn{m_1(t_1,t_2) = E(X_{t_1|t_2}) = \frac{\int_{t_1}^{\infty}
  \bar{F}(x_1,t_2)\,dx_1}{\bar{F}(t_1,t_2)}}
and analogously \eqn{m_2(t_1,t_2)}.
}
\examples{
biv_mean_residual(t1 = 0.5, t2 = 0.5)
biv_mean_residual(t1 = 1, t2 = 0.5, k1 = 1, k2 = 2, theta = 0.2)

}
\references{
Jayalekshmi S., Rajesh G., Nair N.U. (2022).
\doi{10.1080/03610926.2022.2085874}
}
