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)
Run the code above in your browser using DataLab