calc ei

calc ei

Usage

calc_ei(zone_obj)

Arguments

zone_obj

a zone object

Value

tibble with calculation and ei

Examples

zo1 <- tibble::tibble(
  zone = 1:2,
  obs = c(0, 100),
  n_grids = rep(1,2)
)
zo2 <- tibble::tibble(
  zone = 1:2,
  obs = c(50,50),
  n_grids = rep(1,2)
)
calc_ei(zo1)
#> # A tibble: 2 × 8
#>    zone   obs n_grids    ri    pi ratio    wi     ei
#>   <int> <dbl>   <dbl> <dbl> <dbl> <dbl> <dbl>  <dbl>
#> 1     1     0       1     0   0.5     0     0 -1    
#> 2     2   100       1     1   0.5     2     1  0.333
calc_ei(zo2)
#> # A tibble: 2 × 8
#>    zone   obs n_grids    ri    pi ratio    wi    ei
#>   <int> <dbl>   <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1     1    50       1   0.5   0.5     1   0.5     0
#> 2     2    50       1   0.5   0.5     1   0.5     0