Как вычислить расчет Кронекера в матрице в r?

У меня есть 2 матрицы, одна 22x22, это все значения фрахта регионов, а другая 22x4, в которой есть: gdp, population, km и emissions. Моя цель состоит в том, чтобы увидеть, насколько общие выбросы для региона влияют на каждый регион. Мой учитель сказал мне использовать вычисление Кронекера следующим образом (это пример):

newnames_o = function(x) paste(x, "_o", sep = "")
newnames_d = function(x) paste(x, "_d", sep = "")
for (i in min(determinants$Year):max(determinants$Year)) {
if (i == min(determinants$Year)) {
    orig = kronecker(matrix(1, length(unique(determinants[, 2])), 1),     as.matrix(determinants[determinants$Year == i, -c(1:2)]))
    colnames(orig) = sapply(colnames(determinants)[-c(1:2)], newnames_o)
    dest = kronecker(as.matrix(determinants[determinants$Year == i, -c(1:2)]),   matrix(1, length(unique(determinants[, 2])), 1))
    colnames(dest) = sapply(colnames(determinants)[-c(1:2)], newnames_d)
    fulldata = cbind(orig, dest)
    colnames(fulldata) = c(colnames(orig), colnames(dest))

Как мне сделать первый расчет: мой первый регион с другими 21 регионом и другими 4 переменными, а затем мои выбросы?


person S G    schedule 21.07.2017    source источник