ДВ
Size: a a a
ДВ
ДВ
PU
ED
m <- matrix(1:9, ncol = 3)
v <- matrix(c(1,2,1,3), ncol = 2)
v1 <- v[, 1] * v[, 2]
map_dbl(v1, ~pluck(t(m), .x))
sapply(v1, FUN = function(x) t(m)[x])
v1 <- v[,1]+nrow(m)*(v[,2]-1)
as.vector(m)[v1]
ДВ
PU
DN
DN
AS
AS
AS
AS
DN
AS
DN
DN
PU
AS
DN
DN