r - R で行列をベクトルのルックアップ テーブルとして使用する

Question

列があります

sex <- c(1, 2, 1)
age <- c(12, 13, 14)

およびルックアップ テーブル

bmi_adipos_limit_table = array(c(24.77, 24.91, 25.02, 24.65, 24.92, 25.18), dim = c(4,2))

そしてやりたい

bmi_adipos_limits <- magicFunction(age, sex)

と

bmi_adipos = c(24.77, 24.92, 25.02)

私は試した

bmi_adipos = bmi_adipos_limits[age-11, sex]

これは機能しませんでした（戻り値は私が期待していたものでしたbmi_adipos_limits[(age-11) X sex]）。magicFunctionそれで、誰かが私が探しているものが何であるかを教えてもらえますか?

Answer 1

あなたが探しているmapply：

mysubsetter <- function(x, y) {
    bmi_adipos_limit_table[x-11, y]
} 

mapply(mysubsetter, age, ex)
# [1] 24.77 25.18 25.02