Dear R community Hope every one be in best of his/her health. I have a situation in which there are s-sectors. Each sector is further divided into r-rows and c-columns. All it makes an array having dimension (r,c,s). e.g. x=c(1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,2,3,3,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,3,3,3,4,4,4,0,0,0,0,0,0,0,1,1,1,2,2,2,3,3,3,4,4,4, 0,0,0,0,0,0,1,2,2,2,2,2,0,3,3,0,4,4,0,0,0,0,0,0) x=array(x,dim=c(3,6,5))> x, , 1 [,1] [,2] [,3] [,4] [,5] [,6] [1,] 1 0 0 0 0 0 [2,] 1 0 0 0 0 0 [3,] 1 0 0 0 0 0 , , 2 [,1] [,2] [,3] [,4] [,5] [,6] [1,] 1 2 3 0 0 0 [2,] 1 2 3 0 0 0 [3,] 1 2 0 0 0 0 , , 3 [,1] [,2] [,3] [,4] [,5] [,6] [1,] 1 2 3 4 0 0 [2,] 1 2 3 4 0 0 [3,] 1 3 4 0 0 0 , , 4 [,1] [,2] [,3] [,4] [,5] [,6] [1,] 1 2 3 4 0 0 [2,] 1 2 3 4 0 0 [3,] 1 2 3 4 0 0 , , 5 [,1] [,2] [,3] [,4] [,5] [,6] [1,] 1 2 0 0 0 0 [2,] 2 2 3 4 0 0 [3,] 2 2 3 4 0 0 I want to get the most repeated sequence (row-wise) of values in each sector. e.g. in sector 1 i.e. , , 1 the most repeated sequence is 1 (ignoring zeros). In , , 2 the most repeated sequence is 1 2 3. Similarly in last sector i.e. , , 5 such sequence is 2 2 3 4. Any body can help to solve this problem. Thanks best regards Muhammad Azam [[alternative HTML version deleted]]
Here is a start. You can delete the zeros:> x=c(1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,2,3,3,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,3,3,3,4,4,4,0,0,0,0,0,0,0,1,1,1,2,2,2,3,3,3,4,4,4,+ 0,0,0,0,0,0,1,2,2,2,2,2,0,3,3,0,4,4,0,0,0,0,0,0)> x=array(x,dim=c(3,6,5)) > apply(x,3,function(.mat){+ rows <- table(apply(.mat,1,function(z){ + paste(z,collapse=' ') + })) + names(rows[which.max(rows)]) + }) [1] "1 0 0 0 0 0" "1 2 3 0 0 0" "1 2 3 4 0 0" "1 2 3 4 0 0" "2 2 3 4 0 0">On Sat, Sep 6, 2008 at 4:54 AM, Muhammad Azam <mazam72 at yahoo.com> wrote:> Dear R community > Hope every one be in best of his/her health. I have a situation in which there are s-sectors. Each sector is further divided into r-rows and c-columns. All it makes an array having dimension (r,c,s). e.g. > > x=c(1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,2,3,3,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,3,3,3,4,4,4,0,0,0,0,0,0,0,1,1,1,2,2,2,3,3,3,4,4,4, > 0,0,0,0,0,0,1,2,2,2,2,2,0,3,3,0,4,4,0,0,0,0,0,0) > x=array(x,dim=c(3,6,5)) >> x > , , 1 > > [,1] [,2] [,3] [,4] [,5] [,6] > [1,] 1 0 0 0 0 0 > [2,] 1 0 0 0 0 0 > [3,] 1 0 0 0 0 0 > > , , 2 > > [,1] [,2] [,3] [,4] [,5] [,6] > [1,] 1 2 3 0 0 0 > [2,] 1 2 3 0 0 0 > [3,] 1 2 0 0 0 0 > > , , 3 > > [,1] [,2] [,3] [,4] [,5] [,6] > [1,] 1 2 3 4 0 0 > [2,] 1 2 3 4 0 0 > [3,] 1 3 4 0 0 0 > > , , 4 > > [,1] [,2] [,3] [,4] [,5] [,6] > [1,] 1 2 3 4 0 0 > [2,] 1 2 3 4 0 0 > [3,] 1 2 3 4 0 0 > > , , 5 > > [,1] [,2] [,3] [,4] [,5] [,6] > [1,] 1 2 0 0 0 0 > [2,] 2 2 3 4 0 0 > [3,] 2 2 3 4 0 0 > > I want to get the most repeated sequence (row-wise) of values in each sector. e.g. in sector 1 i.e. , , 1 > the most repeated sequence is 1 (ignoring zeros). In , , 2 the most repeated sequence is 1 2 3. Similarly in last sector i.e. > , , 5 such sequence is 2 2 3 4. Any body can help to solve this problem. Thanks > > > best regards > Muhammad Azam > > > > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help at 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?
Dear R community
Initially i thought my problem has been solved but one thing which i found e.g.
if
1. All the elements of a sector are zero e.g
, , 7
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 0 0 0 0 0 0 0 0 0 0
[2,] 0 0 0 0 0 0 0 0 0 0
[3,] 0 0 0 0 0 0 0 0 0 0
[4,] 0 0 0 0 0 0 0 0 0 0
[5,] 0 0 0 0 0 0 0 0 0 0
2. Majority of the rows consist of zeros e.g.
, , 5
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 4 4 0 0 0 0 0 0 0 0
[2,] 4 4 0 0 0 0 0 0 0 0
[3,] 0 0 0 0 0 0 0 0 0 0
[4,] 0 0 0 0 0 0 0 0 0 0
[5,] 0 0 0 0 0 0 0 0 0 0
Actually
zeros are not my values. I get values and fill the remaining parts with
zeros like "x=array(0,dim=c(3,6,5))". Now according to first strategy
"0 0 0 0 0 0 0 0 0 0" are most repeated
sequence of rows in both of above cases. But i don't want to consider
cases where all elements are zeros and interested to get "4 4
0 0 0 0 0 0 0 0" or just " 4 4 " in case
2.
Thanks and best regards
Muhammad Azam
----- Original Message ----
From: jim holtman <jholtman@gmail.com>
To: Muhammad Azam <mazam72@yahoo.com>
Cc: R Help <r-help@r-project.org>; R-help request
<r-help-request@r-project.org>
Sent: Saturday, September 6, 2008 2:39:19 PM
Subject: Re: [R] request: most repeated sequnce
Here is a start. You can delete the zeros:
>
x=c(1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,2,3,3,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,3,3,3,4,4,4,0,0,0,0,0,0,0,1,1,1,2,2,2,3,3,3,4,4,4,
+ 0,0,0,0,0,0,1,2,2,2,2,2,0,3,3,0,4,4,0,0,0,0,0,0)> x=array(x,dim=c(3,6,5))
> apply(x,3,function(.mat){
+ rows <- table(apply(.mat,1,function(z){
+ paste(z,collapse=' ')
+ }))
+ names(rows[which.max(rows)])
+ })
[1] "1 0 0 0 0 0" "1 2 3 0 0 0" "1 2 3 4 0 0"
"1 2 3 4 0 0" "2 2 3 4 0 0">
On Sat, Sep 6, 2008 at 4:54 AM, Muhammad Azam <mazam72@yahoo.com>
wrote:> Dear R community
> Hope every one be in best of his/her health. I have a situation in which
there are s-sectors. Each sector is further divided into r-rows and c-columns.
All it makes an array having dimension (r,c,s). e.g.
>
>
x=c(1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,2,3,3,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,3,3,3,4,4,4,0,0,0,0,0,0,0,1,1,1,2,2,2,3,3,3,4,4,4,
> 0,0,0,0,0,0,1,2,2,2,2,2,0,3,3,0,4,4,0,0,0,0,0,0)
> x=array(x,dim=c(3,6,5))
>> x
> , , 1
>
> [,1] [,2] [,3] [,4] [,5] [,6]
> [1,] 1 0 0 0 0 0
> [2,] 1 0 0 0 0 0
> [3,] 1 0 0 0 0 0
>
> , , 2
>
> [,1] [,2] [,3] [,4] [,5] [,6]
> [1,] 1 2 3 0 0 0
> [2,] 1 2 3 0 0 0
> [3,] 1 2 0 0 0 0
>
> , , 3
>
> [,1] [,2] [,3] [,4] [,5] [,6]
> [1,] 1 2 3 4 0 0
> [2,] 1 2 3 4 0 0
> [3,] 1 3 4 0 0 0
>
> , , 4
>
> [,1] [,2] [,3] [,4] [,5] [,6]
> [1,] 1 2 3 4 0 0
> [2,] 1 2 3 4 0 0
> [3,] 1 2 3 4 0 0
>
> , , 5
>
> [,1] [,2] [,3] [,4] [,5] [,6]
> [1,] 1 2 0 0 0 0
> [2,] 2 2 3 4 0 0
> [3,] 2 2 3 4 0 0
>
> I want to get the most repeated sequence (row-wise) of values in each
sector. e.g. in sector 1 i.e. , , 1
> the most repeated sequence is 1 (ignoring zeros). In , , 2 the most
repeated sequence is 1 2 3. Similarly in last sector i.e.
> , , 5 such sequence is 2 2 3 4. Any body can help to solve this
problem. Thanks
>
>
> best regards
> 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]]