% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/methods.R
\name{predict.ssadfit}
\alias{predict.ssadfit}
\title{Predict Lifetime Distribution and Reliability for SSADT Fit}
\usage{
\method{predict}{ssadfit}(object, t = seq(100, 10000, by = 100), S0 = 25, omega_F = 200, ...)
}
\arguments{
\item{object}{An object of class \code{"ssadfit"}.}

\item{t}{Numeric vector of time points for reliability evaluation (default: \code{seq(100, 10000, by = 100)}).}

\item{S0}{Normal use-stress level (default: 25).}

\item{omega_F}{Failure threshold for degradation (default: 200).}

\item{...}{Additional prediction arguments.}
}
\value{
An object of class \code{"ssad_reliability"} containing time, reliability R(t), failure CDF F(t), and MTTF.
}
\description{
Predicts the reliability function R(t), cumulative failure distribution F(t), and MTTF at normal operating
stress conditions S0 based on a fitted \code{"ssadfit"} model.
}
\examples{
data(wiener_arrhenius)
fit <- ssad_fit(wiener_arrhenius, process = "wiener", model = "arrhenius", method = "mle")
pred <- predict(fit, t = seq(100, 5000, by = 100), S0 = 25, omega_F = 200)
print(pred$mttf)
}
