Nothing
library(testthat)
library(CNAIM)
context("COF:Financial EHV Switchgear")
test_that("33kV RMU", {
res <- financial_cof_ehv_switchgear(ehv_asset_category = "33kV RMU",
access_factor_criteria = "Type A")
expected_value <- 25347
expect_equal(res, expected_value)
})
context("COF:Financial 132kV CB")
test_that("132kV CB (Air Insulated Busbars)(ID) (GM)", {
res <- financial_cof_ehv_switchgear(ehv_asset_category = "132kV CB (Air Insulated Busbars)(ID) (GM)",
access_factor_criteria = "Type A")
expected_value <- 81092
expect_equal(res, expected_value)
})
# ----------------------------------------
context("COF:Safety EHV Switchgear")
test_that("33kV RMU", {
res <- safety_cof_ehv_switchgear(ehv_asset_category = "33kV RMU",
location_risk = "Default",
type_risk = "Default")
expected_value <- 23502
expect_equal(res, expected_value)
})
context("COF:Safety 132kV CB")
test_that("132kV CB (Air Insulated Busbars)(ID) (GM)", {
res <- safety_cof_ehv_switchgear(ehv_asset_category = "132kV CB (Air Insulated Busbars)(ID) (GM)",
location_risk = "Default",
type_risk = "Default")
expected_value <- 36171
expect_equal(res, expected_value)
})
# ----------------------------------------
context("COF:Environmental EHV Switchgear")
test_that("33kV RMU", {
res <- environmental_cof_ehv_switchgear(ehv_asset_category = "33kV RMU",
type_env_factor = "Oil",
prox_water = 95,
bunded = "Yes")
expected_value <- 2025.54
expect_equal(res, expected_value)
})
context("COF:Environmental 132kV CB")
test_that("132kV CB (Air Insulated Busbars)(ID) (GM)", {
res <- environmental_cof_ehv_switchgear(ehv_asset_category = "132kV CB (Air Insulated Busbars)(ID) (GM)",
type_env_factor = "Oil",
prox_water = 95,
bunded = "Yes")
expected_value <- 8593.62
expect_equal(res, expected_value)
})
# ----------------------------------------
context("COF:Network EHV switch gear")
test_that("33kV RMU", {
res <- network_cof_ehv_switchgear(ehv_asset_category = "33kV RMU",
actual_load_mva = 15)
expected_value <- 7370
expect_equal(res, expected_value)
})
context("COF:Network 132kV CB")
test_that("132kV CB (Air Insulated Busbars)(ID) (GM)", {
res <- network_cof_ehv_switchgear(ehv_asset_category = "132kV CB (Air Insulated Busbars)(ID) (GM)",
actual_load_mva = 15) %>% round(2)
expected_value <- 28850.06
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.