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.
