# NOT RUN {
# Current annual probability of failure for 10-20kV cable, APB, 50 years old
pof_cables_10kV_APB <-
pof_cables_20_10_04kv(hv_lv_cable_type = "10-20kV cable, APB",
sub_division = "Lead sheath - Copper conductor",
utilisation_pct = 80,
operating_voltage_pct = 60,
sheath_test = "Default",
partial_discharge = "Default",
fault_hist = "Default",
reliability_factor = "Default",
age = 50) * 100
paste0(sprintf("Probability of failure %.4f", pof_cables_10kV_APB),
" percent per annum")
# }
Run the code above in your browser using DataLab