Nothing
library(testthat)
library(CNAIM)
context("Future Probability of Failure for Transformer 30 60 kv")
test_that("pof_future_transformer_30_60kv", {
res <- pof_future_transformer_30_60kv(transformer_type = "60kV Transformer (GM)",
year_of_manufacture = 1980,
utilisation_pct = "Default",
no_taps = "Default",
placement = "Default",
altitude_m = "Default",
distance_from_coast_km = "Default",
corrosion_category_index = "Default",
age_tf = 43,
age_tc = 43,
partial_discharge_tf = "Default",
partial_discharge_tc = "Default",
temperature_reading = "Default",
main_tank = "Default",
coolers_radiator = "Default",
bushings = "Default",
kiosk = "Default",
cable_boxes = "Default",
external_tap = "Default",
internal_tap = "Default",
mechnism_cond = "Default",
diverter_contacts = "Default",
diverter_braids = "Default",
moisture = "Default",
acidity = "Default",
bd_strength = "Default",
hydrogen = "Default",
methane = "Default",
ethylene = "Default",
ethane = "Default",
acetylene = "Default",
hydrogen_pre = "Default",
methane_pre = "Default",
ethylene_pre = "Default",
ethane_pre = "Default",
acetylene_pre = "Default",
furfuraldehyde = "Default",
reliability_factor = "Default",
k_value = 0.454,
c_value = 1.087,
normal_expected_life_tf = "Default",
normal_expected_life_tc = "Default",
simulation_end_year = 100)
expected_value <- readRDS(system.file("testdata/pof_future_transformer_30_60kv.rds", package =
"CNAIM"))
expect_equal(res, expected_value)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.