Thanks for the codes. Maybe I elaborate more here.

In my actual dataset, the dim(E) = (200, 20, 1000)  and dim(C) = (200,15,
965) in which I don't know which 35 matrix are missing. I want to ask how
merge the two arrays by matching the first 5 columns of values. Thanks you.

Best Regards,
Ray

On Thu, Feb 7, 2013 at 10:29 PM, arun <smartpink111@yahoo.com> wrote:

> 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[[1]]),length(list1)))
>
>  identical(F,Fnew)
> #[1] TRUE
> A.K.
>
>
> ----- Original Message -----
> From: Ray Cheung <ray1728@gmail.com>
> To: r-help@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@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
>

	[[alternative HTML version deleted]]

