S4 object of class Sector

Value

Object of class Sector.
Slots

characteristic: an object of class Characteristic.
flood: an array.
scenario: an array.
damage: an array.
complement: an array.
Author

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

 
char_01 = Characteristic(
    flood = c("flood.min", "flood.A", "flood.B", "flood.C", "flood.max"),
    scenario = c("normal"),
    state = 1:2,
    stake_dam = getOption("floodam.cba")[["stake_dam_mandatory"]],
    stake_com = getOption("floodam.cba")[["stake_com_mandatory"]]
)

sector_01 = Sector(char_01)


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"]]))

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

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_dam = 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_com = c("inhabitant", "employee", "household", "enterprise")))
)