S4 object of class Sector

Value

Object of class Sector.
Slots

characteristic,: object of class Characteristic.
flood,: array.
scenario,: array.
damage,: array.
complement,: array.
evolution,: array or NULL.
Author

Frédéric Grelot, frederic.grelot.1994_cran@m4x.org
Examples

 
characteristic = Characteristic(
    flood = c("flood_min", "flood_med", "flood_max"),
    scenario = c("normal"),
    state = 1:2,
    warn = FALSE
)
sector = Sector(characteristic)
sector["flood"] = c(10, 100, 1000)
sector["damage"] = c(
    0, 100, 200, 0, 50, 100,
    5, 10, 15, 5, 15, 25,
    0, 100, 200, 0, 50, 100,
    0, 0, 0, 0, 0, 0)
sector["complement"] = as.vector(sector["damage"][, , , c("dwelling", "activity")] / 10)
sector["evolution"] = c(rep(0, 6), rep(.02, 6))
 
flood = array(c(2, 10, 50, 100, 1000), dim = 5,
    dimnames = list(flood = c("flood_min", "flood_A", "flood_B", "flood_C", "flood_max")))
scenario = array(
    c(  1, .99,   .9,   .5,  0,
        0, .01,   .1,   .5,  1,
        1, .9999, .999, .99, .9,
        0, .0001, .001, .01, .1),
    dim = c(5, 2, 2),
    dimnames = list(
        flood = c("flood_min", "flood_A", "flood_B", "flood_C", "flood_max"),
        scenario = c("normal", "failure"),
        state = 1:2))
damage = array(
    c(
         0, 1e5, 1e6, 5e6, 1e7, 0, 2e5, 15e5, 8e6, 15e6,
             0, 1e5, 1e6, 5e6, 1e7, 0, 15e4, 12e5, 6e6, 12e6,
         0, 1e4, 3e4, 5e4, 1e5, 0, 1e4,  2e4, 4e4,  1e5,
             0, 3e4, 5e4, 8e4, 1e5, 0,  2e4,  4e4, 6e4,  1e5,
         0, 1e5, 1e6, 5e6, 1e7, 0, 2e5,  2e6, 7e6, 15e6,
             0, 1e5, 1e6, 5e6, 1e7, 0, 15e4, 15e5, 5e6, 12e6,
         0, 5e4, 1e5, 3e5, 1e6, 0, 5e4,  1e5, 3e5,  1e6,
             0, 5e4, 1e5, 3e5, 1e6, 0,  5e4,  1e5, 3e5,  1e6), 
    dim = c(5, 2, 2, 4),
    dimnames = list(
        flood = c("flood_min", "flood_A", "flood_B", "flood_C", "flood_max"),
        scenario = c("normal", "failure"),
        state = 1:2,
        stake = c("activity", "agriculture", "dwelling", "public")))
complement = array(NA_real_,
     dim = c(5, 2, 2, length(getOption("floodam.cba")[["stake_com_mandatory"]])),
     dimnames = list(
        flood = c("flood_min", "flood_A", "flood_B", "flood_C", "flood_max"),
        scenario = c("normal", "failure"),
        state = 1:2,
        stake = getOption("floodam.cba")[["stake_com_mandatory"]]))
evolution = array(0,
     dim = c(5, 2, 2),
     dimnames = list(
        flood = c("flood_min", "flood_A", "flood_B", "flood_C", "flood_max"),
        state = 1:2,
        stake = c("rural", "urban")))

sector_02 = Sector(
 flood = flood, scenario = scenario, damage = damage, complement = complement
)
sector_02_bis = Sector(
 flood = flood, scenario = scenario, damage = damage,
 complement = complement, evolution = evolution
)

sector_03 = Sector(
    flood =  array(
         c(10, 100, 1000),
         dim = 3,
         dimnames = list(flood = c("flood_min", "flood_med", "flood_max"))),
    
    scenario = array(
        c(  1, .9   , 0   , 0, .1   , 1,
            1, .9999,  .99, 0, .0001,  .01,
            1, .9999,  .99, 0, .0001,  .01),
        dim = c(3, 2, 3),
        dimnames = list(
            flood = c("flood_min", "flood_med", "flood_max"),
            scenario = c("normal", "failure"),
            state = 1:3)),
    
    damage = array(
        c(  0, 1000, 2000,    0, 2000, 4000,
                 0, 1000, 2000,    0, 2000, 4000,
                 0,  500, 1000,    0, 1000, 2000,
            0, 1000, 2000,    0,  500, 1000,
                 0, 1000, 2000,    0,  500, 1000,
                 0, 1500, 3000,    0, 1000, 2000,
            0, 1000, 2000,    0, 2000, 4000,
                 0, 1000, 2000,    0, 2000, 4000,
                 0, 1200, 1500,    0, 2500, 2500,
           NA,   NA,   NA,   NA,   NA,   NA,
                 NA,   NA,   NA,   NA,   NA,   NA,
                 NA,   NA,   NA,   NA,   NA,   NA), 
        dim = c(3, 2, 3, 4),
        dimnames = list(
            flood = c("flood_min", "flood_med", "flood_max"),
            scenario = c("normal", "failure"),
            state = 1:3,
            stake = c("activity", "agriculture", "dwelling", "public"))),
    
    complement = array(
        NA, 
        dim = c(3, 3, 2, 4),
        dimnames = list(
            flood = c("flood_min", "flood_med", "flood_max"),
            state = 1:3,
            scenario = c("normal", "failure"),
            stake = c("inhabitant", "employee", "household", "enterprise")))
)