request: most repeated sequnce

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,

x=array(x,dim=c(3,6,5))
apply(x,3,function(.mat){

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