uptake_walk_school_baseline = function(distance, upper_limit = 0.7, exponent = 1.3) {
p = exp(-distance * exponent)
p[p > upper_limit] = upper_limit
p
}
# And...
uptake_walk_school_goactive = function(distance, upper_limit = 0.9, exponent = 0.8) {
uptake_walk_school_baseline(distance, upper_limit, exponent)
}