У меня есть код R, который выглядит в основном так:
compute.quantiles <- function(mu, type) {
## 'mu' and 'type' are vectors of the same length
var <- ifelse(type=='a', 6.3523 * mu^2,
ifelse(type=='b', 234.23 * mu,
ifelse(type=='c', {s <- 9.8 * ((mu-0.3)/3)^(6/7)+0.19; mu + mu^2/s},
ifelse(type=='d', 56.345 * mu^1.5,
ifelse(type=='e', 0.238986 * mu^2,
ifelse(type=='f', mu + 1.1868823 * mu^2,
NA ))))))
# ...then do something with var...
}
Некоторые примеры ввода и вывода:
print(compute.quantiles(2:4, c('c','d','e')))
[1] 2.643840 292.777208 3.823776
Это работает правильно, но это отвратительно с глубоким вложением, поэтому мне интересно, есть ли другая идиома, которая работает лучше. У кого-нибудь есть предложение? Если switch()
принял вектор в качестве первого аргумента, это будет работать красиво, но оно просто принимает скаляр.