Reliability_plot — Reliability_plot • sdp

This function is used to calculate Remaining Useful Life (RUL).

Usage

Reliability_plot(
  R_time = 1:300,
  sum_para = fit,
  threshold = 150,
  process = "Wiener",
  type = "classical",
  rel = NULL,
  s = NULL
)

Arguments

R_time: R_time
sum_para: sum_para
threshold: a vector of thresholds for each group.
process: Wiener, Gamma or Inverse Gaussian process.
type: classical in default.
rel: relationship.
s: stress.

Value

Return a list containing RUL at different time points for each group.

Examples

dat <- sim_dat(
  group = 5, t = 1:200, para = c(2, 3),
  process = "Wiener", type = "classical"
)
# MLE
mle_fit <- sta_infer(
  method = "MLE", process = "Wiener",
  type = "classical", data = dat
)
# Reliability
Reliability_plot(
  R_time = 1:200, sum_para = mle_fit, threshold = 100,
  process = "Wiener", type = "classical"
)