Did you try my function? I don't see how it doesn't fit the need of this
reexplanation.

For this set, x would end up equal to c(2,2,1), indicating that array 1
appears twice in the set and array 2 appears twice in the set. So, array 1
and array 2 appear maximally in the set. So, look at a[[1]] or a[[2]] and
that is your answer.

--Adam

On Thu, 11 Sep 2008, Muhammad Azam wrote:

Thanks for the effort but still we are far from the desired result. May be
this example will help you to understand the situation. Example

a1=c(1:12);   a1=array(a1,dim=c(3,4));   a2=c(1:12);  a2=array(a2,dim=c(3,4));  
a3=c(1:16)
a3=array(a3,dim=c(4,4));
a=list(a1,a2,a3);
a
[[1]]
    [,1] [,2] [,3] [,4]
[1,]    1    4    7   10
[2,]    2    5    8   11
[3,]    3    6    9   12

[[2]]
    [,1] [,2] [,3] [,4]
[1,]    1    4    7   10
[2,]    2    5    8   11
[3,]    3    6    9   12

[[3]]
    [,1] [,2] [,3] [,4]
[1,]    1    5    9   13
[2,]    2    6   10   14
[3,]    3    7   11   15
[4,]    4    8   12   16

Here [[1]] and [[2]] are same out of three (internal values wise). The
whole array [[1]] or [[2]] is in majority. So i want to get the whole
array or component of list which is in majority. The result should be like
this

    [,1] [,2] [,3] [,4]
[1,]    1    4    7   10
[2,]    2    5    8   11
[3,]    3    6    9   12

Hope it is much more clear as before.

best regards
Muhammad Azam


----- Original Message ----
From: Adam D. I. Kramer <[EMAIL PROTECTED]>
To: Muhammad Azam <[EMAIL PROTECTED]>
Cc: R Help <r-help@r-project.org>
Sent: Thursday, September 11, 2008 9:53:40 AM
Subject: Re: [R] request: most repeated component of a list

That is indeed different from what I thought the first time.

x <- sapply(1:length(l), function(x) {
  sum(sapply(l, function(y) {
    if ( nrow(l[[x]]) != nrow(y) | ncol(l[[x]]) != ncol(y) ) FALSE
    else sum(y != l[[x]]) == 0
  }))
} )

names(x) <- names(l)

Then, x has the same names as l, and x[i] is the number of matches that
l[[i]] has...so you want the index or indices of max(x).

--Adam

On Thu, 11 Sep 2008, Muhammad Azam wrote:

May be i could not explain properly. Actually there are components of
list i.e. [[1]] to [[500]]. Each component containing r-rows (may be
different for each [[ k ]] and c-columns same for all). I have to
compare all the [[ k ]] components of that list and found the one
appearing maximum no of times. e.g. from three components [[1]] to
[[3]] given below. The most repeated is

        [,1] [,2] [,3] [,4] [,5]
[1,]    4    0    0    0    0
[2,]    4    3    4    0    0
[3,]    4    3    4    0    0
[4,]    4    3    0    0    0Please help to find it. Thanks and

best regards
Muhammad Azam


----- Original Message ----
From: jim holtman <[EMAIL PROTECTED]>
To: Muhammad Azam <[EMAIL PROTECTED]>
Cc: R-help request <[EMAIL PROTECTED]>; R Help <r-help@r-project.org>
Sent: Wednesday, September 10, 2008 5:59:28 PM
Subject: Re: [R] request: most repeated component of a list

If want you want is the summary from all of them, then 'rbind' the
data together into one matrix and analyze it:

totalMat <- do.call(rbind, listOfMatrices)

On Wed, Sep 10, 2008 at 11:49 AM, Muhammad Azam <[EMAIL PROTECTED]> wrote:
Dear R community

I have stored the results of arrays in a list consist of J-components
(say 200 components). Each component containing same no of columns but
may be different no of rows. e.g
[[1]]
    [,1] [,2] [,3] [,4] [,5]
[1,]    4    0    0    0    0
[2,]    4    3    4    0    0
[3,]    4    3    4    0    0
[4,]    4    3    0    0    0

[[2]]
    [,1] [,2] [,3] [,4] [,5]
[1,]    4    0    0    0    0
[2,]    4    3    4    0    0
[3,]    4    3    4    0    0
[4,]    4    3    0    0    0

[[3]]
    [,1] [,2] [,3] [,4] [,5]
[1,]    4    0    0    0    0
[2,]    4    4    1    0    0
[3,]    4    4    1    0    0
[4,]    4    4    0    0    0
[5,]    4    4    0    0    0


For 200 components i want to make a frequency table. How can i make a
frequency table of these components or the most repeated component out
of all? Any help in this regard will be appreciated.


Muhammad Azam



       [[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.




--
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem that you are trying to solve?



    [[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]]

______________________________________________
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.


______________________________________________
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.

Reply via email to