Reliability Growth Analysis.

Usage

rga(
  times,
  failures,
  model_type = "Crow-AMSAA",
  breakpoints = NULL,
  conf_level = 0.95
)

Arguments

times: A vector of cumulative times at which failures occurred.
failures: A vector of the number of failures at each corresponding time in times.
model_type: The model type. Either Crow-AMSAA (default) or Piecewise Weibull NHPP with change point detection.
breakpoints: An optional vector of breakpoints for the Piecewise Weibull NHPP model.
conf_level: The desired confidence level, which defaults to 95%.

Value

The function returns an object of class rga that contains the results for the model.

Examples

times <- c(100, 200, 300, 400, 500)
failures <- c(1, 2, 1, 3, 2)
result <- rga(times, failures)
print(result)
#> $model
#> 
#> Call:
#> stats::lm(formula = log_cum_failures ~ log_times)
#> 
#> Coefficients:
#> (Intercept)    log_times  
#>      -6.154        1.345  
#> 
#> 
#> $AIC
#> [1] -4.403305
#> 
#> $BIC
#> [1] -5.574991
#> 
#> $breakpoints
#> NULL
#> 
#> $fitted_values
#>        1        2        3        4        5 
#> 1.038970 2.638425 4.550965 6.700180 9.044493 
#> 
#> $lower_bounds
#>         1         2         3         4         5 
#> 0.7637555 2.2187252 3.8708684 5.5033506 7.1214739 
#> 
#> $upper_bounds
#>         1         2         3         4         5 
#>  1.413356  3.137516  5.350551  8.157287 11.486786 
#> 
#> $shape_parameters
#> log_times 
#> 0.7437582 
#> 
#> $scale_parameters
#> (Intercept) 
#> 0.002125969 
#> 
#> $betas
#> log_times 
#>  1.344523 
#> 
#> $lambdas
#> (Intercept) 
#> 0.002125969 
#> 
#> attr(,"class")
#> [1] "rga"