# [R] Merging data in arrays

arun smartpink111 at yahoo.com
Thu Feb 7 15:29:48 CET 2013

```Hi,

I didn't fully understand the logic.
You could get the result by:
list1<-lapply(mapply(cbind,lapply(1:2,function(i) E[,,i]),lapply(c(1,3),function(i) C[,i,]),SIMPLIFY=FALSE),function(x) x[,c(TRUE,apply(matrix(!x[,-1]%in% x[,1],nrow=5),2,all))])
Fnew<-array(unlist(list1),dim=c(dim(list1[]),length(list1)))

identical(F,Fnew)
# TRUE
A.K.

----- Original Message -----
From: Ray Cheung <ray1728 at gmail.com>
To: r-help at r-project.org
Cc:
Sent: Wednesday, February 6, 2013 10:16 PM
Subject: [R] Merging data in arrays

Dear All,

Here is a hypothetical sample (sorry for the clumsy code):

A1 <- matrix(1:5, nrow=5, ncol=1)
A2 <- matrix(6:10, nrow=5, ncol=1)
A3 <- matrix(11:15, nrow=5, ncol=1)
A4 <- matrix(16:20, nrow=5, ncol=1)
A5 <- matrix(21:25, nrow=5, ncol=1)
A6 <- matrix(26:30, nrow=5, ncol=1)

B1 <- matrix(c(A1, A2, A3), nrow=5, ncol=3)
B2 <- matrix(c(A2, A3, A4), nrow=5, ncol=3)
B3 <- matrix(c(A3, A4, A5), nrow=5, ncol=3)

C <- array(c(B1, B2, B3), dim = c(5,3,3))

D1 <- matrix(c(A1, A4, A5), nrow=5, ncol=3)
D2 <- matrix(c(A3, A5, A6), nrow=5, ncol=3)

E <- array(c(D1, D2), dim = c(5,3,2))

In the above example, I want to merge array C to array E by matching the
column 1. That is, the resultant array F should look like this:

F1 <- matrix(c(A1, A4, A5, A2, A3), nrow=5, ncol=5)
F2 <- matrix(c(A3, A5, A6, A4, A5), nrow=5, ncol=5)
F <- array(c(F1, F2), dim = c(5,5,2))

Would you please advise on the codes? Thank you very much for any help.

Best Regards,
Ray

[[alternative HTML version deleted]]

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help