Преобразование слоя в матрицу Symmetri c в Керасе

Question

Скажем, у меня есть модель keras (например)

layers_NE<-keras_model_sequential()
layers_NE %>% layer_dense(units=Height,
                           activation = "relu",
                           trainable=TRUE,
                           input_shape = 4,
                           bias_initializer = "random_normal") 
          %>% layer_dense(units = (d^2),
                           activation = "linear",
                           trainable = TRUE,
                           bias_initializer = "random_normal")

Я хочу преобразовать последний слой в симметрию c матрицу , например, вот так c(a,b,c)-> c(c(a,b),c(b,c)) (здесь c (a, b, c) - это обозначение вывода моей сети)

Пока я пробовал это:

layers_NE %>%layer_reshape(input_shape = (d^2),
                           target_shape = c(d,d)
                           )

вывод имеет правильную форму, но не симметричен c. Как я могу это сделать?