I have two multi dimension array in R like
R
c_t <- array(0, dim = c(2,5,4,3,2), dimnames = list(c("id1", "id2"