% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/mle_est.R
\name{mle_type1_hybrid}
\alias{mle_type1_hybrid}
\title{Maximum Likelihood Estimation under Type-I Hybrid Censoring}
\usage{
mle_type1_hybrid(
  data,
  pdf,
  cdf,
  init_par,
  method = "BFGS",
  lower = -Inf,
  upper = Inf
)
}
\arguments{
\item{data}{Object of class \code{comp_risk_rel_data} or list with \code{observed_times}, \code{censor_status}, \code{termination_time}, and total sample size \code{n}.}

\item{pdf}{Parametric probability density function of time x and vector parameter theta.}

\item{cdf}{Parametric cumulative distribution function of time x and vector parameter theta.}

\item{init_par}{Initial parameter vector for numerical optimization.}

\item{method}{Maximization routine: "NR", "BFGS", "BFGSR", "BHHH", "SANN", "CG", or "NM".}

\item{lower}{Lower bound for parameter vector.}

\item{upper}{Upper bound for parameter vector.}
}
\value{
S3 object of class \code{mle_fit} with parameter estimates, log-likelihood, SE, and information criteria.
}
\description{
Maximum Likelihood Estimation under Type-I Hybrid Censoring
}
\examples{
dat <- gen_type1_hybrid(
  pdf = function(x) dexp(x, rate = 1),
  cdf = function(x) pexp(x, rate = 1),
  lower = 0, upper = 10, n = 20, r = 10,
  T_star = 1.5, seed = 123
)
mle_type1_hybrid(
  data = dat,
  pdf = function(x, theta) dexp(x, rate = theta[1]),
  cdf = function(x, theta) pexp(x, rate = theta[1]),
  init_par = c(0.8), method = "BFGS"
)
}
