如何从数据框创建二进矩阵

Question

我的输入就是这样

individual_id         <- c(1:5)
individual_age        <- c(23,22,24,21,18)
individual_test       <-data.frame(cbind(individual_id,individual_age))
class(individual_test)
dyadic_individual_age <-array(0,c(5,5))

这就是我通过for循环简单地制作矩阵的方法。

for (i in 1:5){
 for (j in 1:5) 
{dyadic_individual_age[i,j]=abs(individual_test$individual_age[i] -individual_test$individual_age[j])
  }
}

但是我知道这种结构在大规模问题中效率不高。请告知该怎么办。