Calculate the total proportion of bird flights at collision risk based on a flight height distribution

Calculate the expected proportion of bird flights at collision risk height (i.e. at rotor height, between bottom and top of the rotor) based on the bird's flight height distribution (\(Q'_{2R}\)).

Usage

get_prop_crh_fhd(d_y)

Arguments

d_y

Numeric vector with the proportion of birds at height bands across the rotor disc

Value

The total proportion of birds at collision risk height derived from a flight height distribution

Examples

 gen_fhd_dat <- Johnston_Flight_heights_SOSS %>%
      dplyr::filter(variable=="Gannet.est") %>%
      dplyr::select(height,prop)

 gen_fhd <- gen_fhd_dat$prop

 d_y <-
    get_fhd_rotor(
      hub_height = 150,
      fhd = gen_fhd,
      rotor_radius = 120,
      tidal_offset = 2.5,
      yinc = 0.05)

 prop_chr_fhd <- get_prop_crh_fhd(d_y)