Compute the mechanical power required for a specific bird flying as at a given airspeed in km/h.
bird
(created with flight_bird()
)
Usage
flight_prob(
speed,
method = "gamma",
shape = 7,
scale = 7,
location = 40,
bird = NA,
fun_power = function(power) {
(1/power)^3
},
low_speed_fix = 15
)
Arguments
- speed
airspeed or groundspeed in km/h
- method
method used to convert the speed to probability ("gamma", "logis" or "power")
- shape
parameter of the gamma distribution
- scale
parameter of the gamma and logistic distribution
- location
parameter for the logistic distribution
- bird
list of basic morphological trait necessary: mass, wing span, wing aspect ratio and body frontal area. It is best practice to create bird with
flight_bird()
.- fun_power
function taking power as a single argument and returning a probability
- low_speed_fix
speed below which the probability remains the same. This parameter is used to allow short flight covering small distance.
Examples
speed <- seq(1, 120)
low_speed_fix <- 20 # minimum speed allowed
prob <- flight_prob(speed,
method = "gamma", shape = 7, scale = 7,
low_speed_fix = low_speed_fix
)
plot(speed, prob,
type = "l", xlab = "Groundspeed [km/h]", ylab =
"Probability"
)
abline(v = low_speed_fix)
bird <- flight_bird("Acrocephalus arundinaceus")
prob <- flight_prob(speed, method = "power", bird = bird)
plot(speed, prob, type = "l", xlab = "Airspeed [km/h]", ylab = "Probability")