# NOT RUN {
# Future probability of a 6.6/11 kV transformer
future_pof_transformer <-
pof_future_transformer_11_20kv(hv_transformer_type = "6.6/11kV Transformer (GM)",
utilisation_pct = "Default",
placement = "Default",
altitude_m = "Default",
distance_from_coast_km = "Default",
corrosion_category_index = "Default",
age = 20,
partial_discharge = "Default",
oil_acidity = "Default",
temperature_reading = "Default",
observed_condition = "Default",
reliability_factor = "Default",
simulation_end_year = 100)
plot(future_pof_transformer$PoF * 100,
type = "line", ylab = "%", xlab = "years",
main = "PoF")
# }
Run the code above in your browser using DataLab