# NOT RUN {
# Current annual probability of failure for
# "66kV UG Cable (Non Pressurised)", 50 years old
pof_cables_66kV_non <-
pof_cables_66_33kv(cable_type = "66kV UG Cable (Non Pressurised)",
sub_division = "Lead sheath - Copper conductor",
utilisation_pct = 80,
operating_voltage_pct = 60,
sheath_test = "Default",
partial_discharge = "Default",
fault_hist = "Default",
leakage = "Default",
reliability_factor = "Default",
age = 50) * 100
paste0(sprintf("Probability of failure %.4f", pof_cables_66kV_non),
" percent per annum")
# }
Run the code above in your browser using DataLab