Plotting Function for Duane Analysis.
Usage
duane_plot(
times,
failures,
plot = TRUE,
point_col = "black",
line_col = "black",
xlab = "Cumulative Time",
ylab = "Cumulative MTBF",
main = "Duane Plot with Cumulative MTBF"
)
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.
- plot
Show Duane Plot (TRUE) or hide plot (FALSE).
- point_col
Color for the data points (default: "black").
- line_col
Color for the fitted line (default: "black").
- xlab
Label for the x-axis (default: "Cumulative Time").
- ylab
Label for the y-axis (default: "Cumulative MTBF").
- main
Title for the plot (default: "Duane Plot with Cumulative MTBF").
Examples
library(ReliaGrowR)
times <- c(100, 200, 300, 400, 500)
failures <- c(1, 2, 1, 3, 2)
fit <- duane_plot(times, failures)
summary(fit)
#> Length Class Mode
#> model 12 lm list
#> AIC 1 -none- numeric
#> BIC 1 -none- numeric
#> Cumulative_Time 5 -none- numeric
#> Cumulative_MTBF 5 -none- numeric
#> Fitted_Values 5 -none- numeric