Представляют вложенные циклы for для функции с двумя параметрами с использованием одинаковых переменных цикла

Question

Я пытаюсь найти более эффективный способ написания этого куска кода, который я рассматривал как применение, мапплирование и свипирование, но не вижу способа переписать его...

points.proj - это матрица mxk, data.proj - это матрица nxk.

Так что, по сути, я бы хотел применить веселье к каждому элементу points.mat с соответствующей коррекцией. тот же номер столбца другой матрицы data.mat... результат должен снова быть матрицей mxk.

    for(i in 1:m){
      for(j in 1:k){
        Bounds[i,j] <- fun(points.proj[i,j],data.proj[,j])
      }}

fun <- function(a,b) sum(a<b)

> points.proj
     [,1] [,2]
[1,]    6    5
[2,]    7    6
[3,]    8    5
> data.proj
     [,1] [,2]
[1,]    8    3
[2,]    2    0
[3,]    9    4
[4,]    6    7
[5,]    2    9

> Bounds
     [,1] [,2]
[1,]    2    2
[2,]    2    2
[3,]    1    2

Спасибо за помощь