Nothing
library(testthat)
library(CNAIM)
context("Future Probability of Failure for Submarine Cables 10 KV pex")
test_that("pof_future_submarine_cables_10kv_pex", {
res <- pof_future_submarine_cables_10kv_pex(
utilisation_pct = "Default",
operating_voltage_pct = "Default",
topography = "Default",
sitution = "Default",
wind_wave = "Default",
intensity = "Default",
landlocked = "no",
sheath_test = "Default",
partial_discharge = "Default",
fault_hist = "Default",
condition_armour = "Default",
age = 10,
reliability_factor = "Default",
k_value = 0.0202,
c_value = 1.087,
normal_expected_life = 60,
simulation_end_year = 100)
expected_value <- readRDS(system.file("testdata/pof_future_submarine_cables_10kv_pex.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.